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A  -  3  r  ?.  A  c 


'A 

^  'JPS-PA  SC*  L  is  a  student  research  prcjec1'  at  t'-.e  Naval 
Postgrad  uate  School ,  the  goa  1  of  which  is  t  r.c  im~  le^nta  ti  o* 
of  the  PASCAL  progr ammi r.s  language  or.  a  microcomputer 
system.  N’PS-PASCAL  will  consist  of  two  crogra'S  .  a  f'c,rril3r 
which  produces  intermediate  code,  and  an  interpreter,  which 
will  interpret  the  ir,  terreiiate  ■-c  ie ,  or  a  tear,  slater,  which 
will  produce  target  'machine  code.  NPS-PASCAL  is  designed  to 
conform  to  the  requirements  o*  the  0 A S C A L  Standard,  as 
defined  hy  the  Pritish  Standards  Institute  ■'International 
Standards  Organization  Working  Draft/3. 

The  compiler  program ,  the  sub  ie~t  of  this  thesis, 
performs  the  lexical,  syntactic  er.d  se-a^tic  analysis  cf  a 
PASCAL  program.  NFS-PAS^AL  is  written  in  INTPL's  PL/v-  =  t* 
orograrming  language  and  executes  on  the  CP-'Y  operating 
system . 
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I  .  I '« *p  Tc '! 


A.  P A  CKC?nUN I 

NPS-PASCAL  is  an  i  "Pi  c-er.  ta  ti  or  cf  *.re  PASCAL 
proprarrir.?  lar.?uare  or.  a  microcomputer  syster.  M?S-?A S CA.I 
is  a  con ti r  ui r.g  research  project  in  t  h»  Co-rut °r  Science 
Decartment  at  the  Naval  ^os f  mradua  t  e  School,  vcr.terey, 
California.  The  original  NPS-PASCAL  lesion  and  ircorao?  vere 
written  by  MAJ  Joacuin  C.  C-raciue,  USVC,  ana  LT  -obert  ?. 
Stilwell  ^SC)  FSN,  in  their  thesis  submitted  Jure  1?7S. 
Their  work  is  contained  in  Ref.  1.  VAJ  Sra^ida  ard  LT 
Stilwell  implemented  the  basi^  contructs  of  the  PASCAL 
language  in  a  one-pass  compiler  e”d  c^de  mener^ter.  ”"0.8515 
work  was  continued  in  June  IP7?  by  LT  John  L.  ryrr.es,  V~N. 
who  added  code  to  implement  many  missing  constructs,  and 
developed  a  number  cf  user  assistance  prcmran-s.  Pis  worse  is 
contained  in  Pef.  2.  Thesis  worv-  was  continued  amain  in 
October  lQ7?t  with  the  real  cf  completing  the  compiler 
portion  of  NPS-PASCAL.  7ollow-or.  tresis  work  will  1 a  a  d  t”  ar. 
NPS-PASCAL  i  n  t  e  rprete  r /t  rar.s  la  t  or  and  a  corrlete  PASCAL 
system.  In  the  discussion  which  fellows,  it  is  assumed  ’•hat 
the  reader  is  familiar  with  Refs.  1  and  2. 

3 .  APPROACH 

The  first  step  in  continuing  the  NP^-P.ASCAL  project  was 
to  convert  the  source  programs  fro:-  ?L/.V  to  PL/M-9F  and 
transfer  them  from  the  Iim  360/T7-based  timesharing  system 
to  the  Intel  Microprocessor  Development  System.  This  would 


7 


sennit  t'"°  ’-omniler  tc  be  ievelcoed  an:  debugged  ir  a 
corn  lately  microprocessor  crier.  :°c  environment.  arc  w.~\:i: 
eliminate  the  reed  to  use  the  P  L / v  r  ?iss  core i 1 er  . 


Th°  next  s^en 

was 

to 

study  the  listings 

0  r.  i 

previous  theses 

to 

gai 

n  a  detailed  familiarity  with 

t  ~  a 

oroject.  Included 

ir. 

thi 

s  st°p  was  a'ouiring  a  wer 

king 

knowledge  of  the  Intel  I S I S - T I  o p e r a  t i  r . j  s y s » e m  and  the 
PI/y-9?  ro^cil°r  and  its  attendant  linking  and  leading 
programs  and  utilities.  Since  M?S— P*SC 'L  ic  ''orpilec  under 
the  IS  IS -I  I  operating  system,  but  executes  ur.d°r  the  CP  /v 
operating  sysem,  it  was  also  necessary  to  learn  rhe  C?/v 
utilities  ^cr  transferring  files  between  systems,  and  the 
C?/v  rur.-t. ire  deouggers,  DDT  and  SID. 

?h»  largest  portion  of  this  thesis  effort  consisted  of 
making  corrections  and  additions  to  existing  cede,  adding 
code  where  recessary,  tracing  exe^utio^  tc  locate  1  egi  ^  and 
data  errors,  correcting  documentation,  and  running  test 
PASCAL  programs.  Implementation  of  tne  record  construct 
reouired  changing  the  original  grammar  and  correcting  the 
parse  tables. 

To  avoid  testing  the  ccmriler  with  sy  r.tac  t  ica  lly 
incorrect  PASCAL  uregrars ,  test  urograms  were  selected  from 
the  PASCAL  U^er  Pdagual  a&£  Heoort,  [?1  ,  from  various  student 
texts  on  PASCAL,  and  from  the  PASCAL  Validation  Suitsf4]. 
The  test  programs  from  the  Validation  Sui*e  were 
particularly  helpful,  in  that  they  exercised  the  full  range 
of  any  giver.  PASCAL  construct. 
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An  att-mt  was  "cde  to  u  r  r  a  d  e  =r.  d  ~r-rl=te 
cvvT3pj_"'^T)T^  v;$q^  ass  i  scarce  rrc '’,;.'w  de^^rib^d  ir  ~  ~z  . 

he  waver,  it  was  aba-dcred  ar.d  a  substitute  uror-re", 
was  developed.  S  l v  r  U  !“*  P  u^ovides  ar  o  ~  d  e  n  c  d  ,  aud’'  =  ^s°d 
d  uer  of  t'-e  syrtcl  tabl®,  a-i  provides  e  ^u-h  -ere  us 
ar.d  efficient  means  of  accessing  tr.e  syrbcl  table. 

It  was  felt  that  it  would  be  ber.®*icial  to  ir-lu-'e 
consolidate  ‘he  doc  u  re  r.  tat  ion  arc  descriptions  from 


previous  theses  into  a  single  document,  so  sections 


o : 


1  and  ?  appear  in  this  thesis.  Th®  aporopriate  sections 
uuiate-l  to  reflect  changes  in  the  or  ogna~  ~ od e  on  struct 
I  r.  others,  descriptions  were  expand0'-'  and  diagrams 
add°d,  or  the  section  was  included  i-  its  entirety. 


’*  v  "D 

-  * 

n 

3  ^  u  1 


-‘‘s  . 

■.  n  r.  a 

u  »■  e . 
were 
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T’  ~  Z  ‘  1  *  v  ;  ’  t  v  t  • 


A  SC.'  L 

^  _  3  *  '"|T 


s  e-  ir^le-e^ta t i ^ 


t a  <=. e i  or  t  r. -  ?  o  I  / 1 


•  c  V  ~  t.  i  -  • 


'  r  a  f  t  /  3  c  f  Star,  .ari 


r°f°rre-l  to  ir.  tr.is  th °sis  as  ?  ~ A:i  1 '  ?  "  PAS"1.!."  h - ~ -r 1 ' 7 1  E 
is  i  r  q  c  v  o  1  i  a  n.  ~  e  w  i  t  r  ?!  A.i!  A?.I  ?  A  S  "  A  L  ,  s  d  e  f  i  r.  i  t  i  c  r  c  f  - 
:r0"aSSor  with  t  r  -  ?  o  ]  i  r  w  1  r.  ^  three  “X’^ttic"!  : 
f  2  7  Tc.e-  ti  fie^s  ,  ui^entiv^s,  ~  ^  ~  ^chels  ^  ^  ^e  r  **  ^  ~  \* 
le^sth,  as  pr°scri  o^d  by  $  ;a  N  EA  -  E  ?*  S  !AI  .  rrcvi  del 
*  ***  9  i  r  ur.  icu-H-SS  ~  s  r.  b  9  d;2^6rr*ir'.  0  ci  fr^r  tbs  first 
thirty  characters. 

/?'i  !rtatcers  a:a  limited  to  anv  valu3  between 


ar.i 

+  2?  ,?f?.  Peal 

va lues 

■'rr.  t a  > e  or 

c»  ^ 7  r,®-7tiva 

** 

t)  c  s  1 

ti-e  value 

r  c  r  s  i  s 

t*in  rr  rf  f 

c  v  r  t  -  9  n  fir  i 

t  s 

7  U  1  * 

i  pi  led  by  ter. 

t  o  t  h  e 

-64 th  ' o w e r 

^  r. 

*■ 

r  ’n  C. 

J-63rd  power. 

(!)  "  ”"P  ’  is  a  special  symbol,  or  reserved  word,  ir.  tr.e 

■PS-PA5CAL  vocabulary  iriicatir. r  "eri  *>?  rrorrar." 
Consequently,  any  oroaram  that  conform^  to  the  "ules  of 
Sr’ANEA°E  PASCAL,  and  reels  the  above  listed  qualifications, 
constitutes  a  syntacti  cal  ly  correct  NPS-PASCAL  pnoanar. 

The  University  of  Toronto's  parse  taole  ac-sratcr  r61 
was  used  to  specify  the  NPS-PASCAL  ararmar  ir  LAL-.'l'  fcrr. 
The  generator  operates  on  tr.e  IPU  ”63/6'7  end  produces  oarsc 
tables  for  the  lflr.ruaae ,  thus  permit  tine  extensions  arc 
corrections  to  be  rade  ir  a"  easy  and  efficient  r-arner. 


ie 


p.  Cr'v?I17r’  ">R  ~  A\ I Z.4  T 

The  compiler  structure,  d  ia re  "'~ar'.  i  r  -ir  .  1,  :?-forrs  a 
?ir.?le  mass  thrcum.  the  source  pro-tra”.  produces  an 
ir.tar~ediate  i,?  r.f:ue.*:e  file  ar.i  ^ay  prir.  ♦  an  optional  listir..-' 
of  the  sourc®  program  to  the  oorsole.  “he  ore  cess  aprree  ch 
was  taken  tc  crevice  speed  and  tc  redu r°  the  sice  of  me 
o  empi  ler .  The  disadvantage  of  *  h  «  o” e-pass  da$i<m  is  t.oe 
inability  tc  specify  the  exa  ~  t  location  w^.e  re  program 
executior  resumes  after  a  forward  branch.  To  s^lv0  this 
prcdl°™,  labels  are  placed  in  the  intermediate  code  v v e r e 
execution  should  continue.  The  resolution  of  label  locations 
is  then  the  re s pcn.si hi  1  i ty  of  the  in  terpremr /t.rans  la  to  r  as 
it  scans  the  intermediate  code. 

The  compiler  builds  me  symbol  table,  cements  all 
numbers  to  their  internal  representation,  ar.i  a*er.era  * es  me 
intermediate  code  file  and  the  symbol  table  file.  The 
corpiler  accepts  input  parameters  to  cor.  t~ol  the  list  ire  cf 
the  sourc®  program,  production  numbers,  cr  tokm  numbers. 
The  creation  of  the  intermediate  file  can  also  be  suppressed 
if  it  is  not  needed . 

C  .  ?  C » fJ  ?!  TF 

The  scanner  analyzes  the  source  pre^ra-  cr.aract=>r  by 
character  and  passes  each  token  identified  to  the  parser. 
The  scanner  can  provide  a  listing  of  the  sou  rc  =  statements 
and  eliminate  comments. 

The  scanner  is  written  ir  four  sections  which  are 
selectively  executed  depending  on  the  firs*  r. or.-b la  ~  k 
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crc3rpc*°r  c  f  f  r  o  i  r  T3  u  t  strir.  .v  h  s  r  tn?  s  *r  ^  t  i  c  ~  tc  ®  *c a  ~  u  *  c 


has  v e e r. 

j  2  t  J  T»rp  1  t  h  9 

r;nai^i 

°r  of  t  "-?  t  c > ^ r. 

i  ? 

and  pla 

3 e d  in  their. uu  t 

array 

1 CCTV  .  "he  first 

n  y  t 

ACCIim  ar 

ray  co-  ta  i  r.s  the 

ler.eth 

of  the  t  o £ e r. .  I- 

tr.3 

tokens  that  exceed  the  s  i  z  3  of  *  he  A  ?  H * Y  ( 7  T  bytes',  a 
o  or.  t  i  r.ua  t  i  on  ?laft  is  set  to  allow  the  scanner  ant  rar«=r  to 
accent  the  rest  of  the  token. 

The  four  sections  of  the  soar.ner  process  strings, 
numbers,  identifiers  and  reserved  word*.  and  snecial 
characters,  respectively.  The  string  orooessi’'.^  section  is 
executed  whenever  the  first  c  ha  rs c  t  3r  of  the  token  is  a 
quotation  mark.  The  scanner  then  accents  each  succeed i 
character  until  a  second  quotation  mark  is  found,  i  r.  i  i  ~e  t  i  r.e 
the  end  of  the  string.  The  s^^tio”  that  processes  miners 
determines  the  type  cf  the  number  beina*  scanned  as  it  s^ans 
ea'ch  character.  This  ceternir.a  t  ion  is  used  by  subroutines 
later  in  the  compilation  process  to  perform  tyre  checking 
and  conversion  to  internal  represen  ta  t  i  on  .  ’■hen  the  scanner 
recogniz°s  ar.  identifier,  it  searcnes  the  vocaoulary  table 
to  determine  if  it  is  a  reserved  word.  If  sc,  the  scanner 

returns  the  token  number  associated  with  the  reserved  word. 

Special  characters  found  in  the  vocabulary  table  are  handled 
as  s°parete  tokens  except  in  two  ~a  se  s .  If  a  oeriod  is 
followed  immediately  by  num.erio  characters,  the  scanner 

assumes  a  real  number  is  beir.m  scanned.  'Then  a  pair  cf 

special  characters  occurs  consecutively ,  (for  instance  :•  ), 

the  scanner  passes  both  characters  as  a  single  token,  after 
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a ss i i r.r  v-.e  eporonriate  *c>er.  r.-j-ve-  fr:~  *ra  7  -  -  v 

t  e  b  1  c  . 

p  c "v: ct  "i»t r 

T'“.e  s v r b o  1  t a b  1  °  is  use!  t c  s  t  *  r  e  the  attributes  -if 
label®,  constants,  tyre  dec  la  ra  t  i  on  s  .  "ariaM0  identifiers, 
procedures,  functions  aid  file  d  =  c  1  a  t  i  <-rs  .  "his  s'^rei 
infor^aricr.  is  used  by  the  rc  --p  i  1  e  r  t  c  v=r i f y  that  t  r  e 
p-o=rer  is  s  errs  r.  t  i  cal  ly  correct  and  to  assist  in  -cue 
generation.  Access  to  the  sybcl  table  is  trrcu-?r.  various 
subroutines  u  si  nr  based  global  variables  to  ur.  iouely  address 
the  el e^e” t s  of  ea oh  entry . 

1.  Table  Cons  t  ru^Iiori . 

T'r.a  symbol  table  is  an  u- crier  ad  linked  lict  of 
entries  which  ?ro’-'s  from  the  lasr  byte  of  the  ---oiler 
toward  hi<?h  '-e-ory.  Individual  entries  ^re  eitr.er  a---ssei 
via  a  chained  hash  addressing  technique  t as  illustrates,  in 
Fi.aura  2),  or  by  rears  of  aidresc  pointer  fields  cor. tcired 
ir.  ether  entries.  This  latter  method  cf  access  is  required 
since  not  ell  entries  ir  the  symbol  table  have  an 
identifier,  called  a  printr.are,  as^o^iated  wit’-  the-. 

7ach  location  in  the  hash  table  contains  the  r.eai  of 
a  sinrly  linked  list  of  entries  w'-css  printr.are,  when 
evaluated,  results  in  the  sere  hash  value.  A  zero  ir  a-y 
cell  cf  the  hash  table  indicates  that  tner°  are  nc  e-tries 
whose  prir. ♦rare  produces  tnat  value.  Curing  syrool  table 
construction  cr  access,  the  Global  variavl=  P-I'.TNAM 
contains  the  address  of  a  strife  of  byt=s  whose  first 
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rest  recent  entry  ct  the  head  cf  the  chair. . 

?ach  entry  in  the  symbol  table  contains  a  number  of 
fields,  sc^0  cf  wnich  are  ccc^on  tc  ail  entries,  and  sere  cf 
whi-h  apply  only  to  particular  closes  of  ent-ies.  All 
er.tri®*  '■a"e  tr.e  same  first  f-ree  fields:  th  ®  Tlli^icn 
field  ir.  ‘he  firs*  two  bytes;  the  previous  syrbol  table 
entry  address  field  ir.  the  third  a~d  fourth  bytes?  ar.d  tr.e 
f or r  field  ir.  the  fifth  byte.  The  remai  i  r.g  fields  ere  user 
to  uniquely  describe  each.  entry's  attrivutes  and 
characteristics . 

There  are  eight  different  tyres  of  entries  i’-  the 
NPS-PASCAL  symbol  table.  Each,  cf  these  tyres  has  a  unique 
three  bit  code  ir.  the  right-most  thr®e  bits  of  its  fore- 
field.  The  remaining  five  bits  in  the  form  field  furthur 
subdivide  the  entry  types  among  the  eight  "'lasses  according 
to  the  particular  character ist ics  of  the  tyre  involved.  The 
forr  field  bit  assignments  are  summarized  ir.  Table  1.  T.ne 
characteri sties  are  d°scribed  ir  detail  as  each  tyre  cf 
symbol  table  entry  is  presented  below. 
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°  ^  t  t  i  —  c 

"he  f  o  rr  field  c f  a  label  e-.tr/  r. a «■  t re  v cl-3  of 
ZZ?.  "he  hash  value  cf  one  laoel's  printrare  is  i-  the  rcxt 
b/t  e  :  the  hash  value  is  s  ter  ~i  for  c  cl  1  i  s  1  c  r.  res  cl  u  t  i  or. 
later.  The  length  c f  the  label  fellows  in  the  rent  o r. e  b / 1 e 
field.  T'-.e  pri  ntnar®  -hara-ter^  appear,  c-.e  o“r  byte,  after 
the  length  field.  A  two  byte  field  following  the  z  r  i n  t r. ar¬ 
ch  ar enters  contains  a  sequentially  gen  era  ted  1  r. ter er  value 
which  is  assigned  as  the  label's  internal  label  r.nrber.  This 
value  is  used  as  the  target  for  branching  ir.  the 
i  r.t  erred  ia  t  e  code.  An  exar-Die  of  a  label  entry  is  shown  in 
fig.  3 . 

b.  Constant  Fr.tries 

The  forr  field  cf  a  co-stant  sv-ocl  table  “-try 
identifies  the  type  cf  entry,  ar.d  the  particular  tyre  cf  t r.e 
constant  as  well.  There  are  five  valid  types  of  constants  ir. 
N  PS-P1  SCAT :  an  unsigned  identifier  with  FC?.!h  =  fl-J  a  signed 
identifier  with  ?C?.V  =  41H»  a-  ir.tegcr  with  7 0?!h  •-  a 

real  valu=  with  FORK  =  11H?  ar.d  a  string  constant  witr.  70?^ 
=  lb".  Following  the  forr  field  are  tne  rri-trare  hash 
field,  the  length  field,  and  the  orintnane  charactQrs. 

The  value  field  ray  consist  of  another  le-gth 
field  ar.d  the  printr.arre  characters  in  the  ca«e  cf  identifier 
and  string  constants,  or  it  ray  contain  the  internal 
represented  on  of  a  constant  -umber  (two  bytes  for  integers 
or  eight  bytes  for  reals).  Two  examples  cf  constant  er.triec 
are  shown  in  "igs.  4  ar.d  5. 
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r-  '  y  ^  a  G  n  un  c, 

v P 5  —  ? A 5 C  f  L  ra  s  tw c  -r i  r. d  s  of  t v r  e  e r. t  - i  e  =•  i -  i  t c 
sy-b  c  1  tabi® :  simple  t/'°  entries  ■ar.i  typ-  "“'■If  r-*.i  y 
entries .  The  sirple  type  entry  car.  sith®r  he  cr.e  of 
N??-?aSCAL's  standard  types,  or  a  previously  ief ir®d  si-ole 
type  declaration  (scalar  or  suorar.ee1.  Ir.  the  latter  case,  a 
sirrle  tyr®  er.t ry  is  -ale  ir.  the  sy- bo!  ta  ole ,  with  - 
ooirter  tc  the  scalar  or  su  o  ranee  type,  -‘eclara'ic-  e  r.  t  r  y .  Ir 

the  forrer  -'a  se ,  cr.e  of  the  f^ll^viry  tyre®  will  be 

assigned  tc  th®  typ®  entry. 

I * t ®*er  -  The  va lues  of  this  type  ar°  a  subs® t  of  t r.e 

whole  numbers  w-css  ran  re  is  th  set  of  values’ 

-ra  xi  nt ,  -ra  xi  r  t  +1  , .  .  .  ,  -1 ,  7  ,  1  ,  . .  .r  a:ci  r  t  -1 ,  ~a  xi  r  t 
where  ^axir.t  =  .?2t76r. 

°eal  -  The  values  are  a  subset  of  th®  r  =  al  ru-bers 
consisting  of  fourteen  dibits  rulti  plied  by  ter.  to 
the  -6-ith  power  through  ten  to  the  +P3rd  pew  ®r . 

boolean  -  The  values  are  denoted  by  the  identifiers 
false’  and  "true”,  such  that  false  is  l  =  ss  than 
true. 

Character  -  The  values  of  this  tyre  are  the  d®fired  set 
of  characters  described  ir.  Fef  F .  The  following 
relationships  hold  for  charart®r  types: 
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( *  '  m  ~  o  s  u  b  c  °  t  c  t  ^  ^  3  r  r  A 1 1 "  v  r  1  v  •?  s  r  ®  r  **  3  s  ®  r.  *  *  ~  ?-  t  r.*3 
limits  ?  tr.  r^u*. b  r  is  crier as  =r.i  rcr :  i^cus  . 

(c  1  ?we  s’j'^st  of  character  values  r»::fi«s:*  in*:  t  re 
uprer  cas®  letters  A  threufr.  Z  is  ^rderei  a "  d 
c  t  if  u  cv  s  . 

(7)  The  subset  of  rha re ~t cr  values  rer-eser.  ti'f  t  :«<> 
lower  case  letters  2  thrcuf"  z  is  ord°red  a-i 
ocr.  t  ifuous  . 

Tyre  declarations  -"tries  ,  however,  are  *:er.e  re  tad  f  r  0  "■  user 
defined  types  fcur.c  elsewhere  ir.  the  source  pr^rrar.  It  is 
prssivle  tr  define  a  chair,  of  tyr  =  declarations,  in  example 
would  be  ar.  a -ray  of  the  type  a"ray  whi  'h  is  its°lf  cf  type 
i  r  t  eater  . 

The  syrbol  fable  ent»*y  for  a  type  is  as  follows. 
Ar.  integer  typ°  has  the  ?n?.v  ’'elia  of  42” ,  a  real  typa  has 
the  TC?T  value  of  4*1 ,  a  character  type  has  ‘he  TC?S  value 
of  52”,  and  a  boolean  type  has  the  70-y  value  of  5A- .  4  Tf)?K’ 
value  of  7Aa  indicates  that  ar.  additional  type  i°r!ar?*ior 
entry  rust  fee  accessed.  The  fi°ld  following  tn  =  fcrr  is  a 
or.e  byte  field  cor.tair.inf  the  hash  value  of  the  printrere. 
The  "°tt  byt°  contains  the  prir.tnare ' e  1 e"<cth ,  which  is 
followed  by  the  prir.tr.ar®  characters  of  the  type  identifier. 
The  last  two  bytes  contain  th°  address  0*  the  specified 
type.  rxarples  of  sirole  type  entries  are  snovr.  in  7irs.  5  - 

Q 

•w  • 
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c  r  r  seven  different  user  *  e  f  i  n  e  h 1  - 
!"  \  ?  s — ?  A  S  Z  \  L  •  A  t  y  t>  e  iecleretic*'  e  r.  t  r  */  i  c  rorstru^tei 

whenever  e  scaler  tyre  ,  su  o  r.^Q  f  * r  r  °  .  e.  ~  r  e  v  t  ’r  ^  °  •  r»  t  ~  ^  *■• j 
tyo®,  set  tvoe,  fil®  tvoe,  or  pointer  tvr?  is  •-ur  te  r«i  . 

fl'  Scalar  Typos.  ?y  definition,  a  c,'el5r  tyre 


is 

a  n 

ordered  s 

et  of  values 

worse 

i  d  e  r  t  i 

f i  =  rs  a  r  c  a-'.:o’erat=d 

t  0 

den 

ote  their 

values.  The 

form 

fi»ld 

p n f  r y  fen  ^  ~  a  1  a  r 

types 

h  $  <;  t  h  ° 

"calar 

p  -  t  r  i 

a  S  c  T3  h  h “  d  r ’ 7  ♦ 77  c 

declaration  entries  that  have  ar.  a-ressibl®  o  r  i  n  t  n  a  t  e . 
Cor.seouer.tly,  the  rent  two  fields  hold  t.n®  nr  1  n  t  -  a  ~e  r  *  s  h 
value  and  length.  The  prir.  triage  charactsrs  follow  th®s® 
fields.  The  next  field  is  e  byte  va  1  a®  -  c"  "a  i  -  i  r  .-?  t.ne 
enuT<=rat°i  value  of  the  scalar  identifier.  7^®  erurcrat®d 
values  are  assigned  to  the  scale  r«  i  "  th=  ^-ri^r 


i  n  w  h  i 

oh  tv-ey  a  o p e a  r  in 

the  declaration 

7he  f  i  r. a  1  fi 

eld 

a  two 

byte  field  st 

ori"-*  the  symonl 

table  address 

of 

pa  rer.  t 

type.  The  scalar 

typ®  ..entry  will 

ve  point®'1  to 

v.  y 

variabl®  entry  claimir.,?  this  tyo®.  4r  e^a-role  of  a  scalar 
tyoe  entry  is  Dresented  in  Tig.  1?. 

(?)  Subrange  2ZS  =  s .  \  subrange  rype  is  a 
duplicate  dec  la  ’•a  t  i  or.  of  anv  other  previously  defined  scalar 
type,  integer  type,  or  character  type,  but  with  a  snecifi°d 
low®r  and  upper  bound  or.  its  elements.  The  forr  fiel^1  of  a 
subra ns®  entry  is  v  for  enumerated  ®lsr®rts,  for 
i  nt®2er  “lerer.  ts,  and  pFP  for  character  elements.  Pytes  six 
a ^d  seven  store  th®  address  of  the  subrange  el°rrent,s  care- 1 
tyoe.  Eytes  ®i?ht  end  nine  hold  the  low  value  of  the  rar.ee, 
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while  the  ” p t  t  two  bytes  coital  r  th®  h  i  »n  ''?!•;*  ->f  to ® 
rang®.  The  fell  owing  field  is  two  bytes  lcnr  ar.i  stores  the 
total  nufbe*  of  elements  ir.  ♦•h®  ran,?®.  Th  e  d  i  so  la  ^erer.  t 
vector  is  rot  stored  with  the  suhrar.g® ,  sir.c®  any  ri'^r. 
subrange  could  serve  as  the  i ad er  to  arrays  different 
base  tyt)°s.  The  di splacemer. l  vector  is  stored  instead  with 
the  array  er ♦  ry  itself.  This  er. try  will  be  pointed  to  by  a 
variable  entry  clairir.g  this  type.  An  example  cf  a  subrange 
type  entry  is  shown  in  Fie-.  11. 

(3)  Array  Typ®s.  Th®  preceding  two  type 
declaration  entries  i  r  iipS-P*.SCAL  are  called  sivple  type 
entries.  "hey  are  symbol  table  entries  using  a  single, 
predefined  type.  Structured  types  are  compositions  of  types. 
In  other  words,  one  or  more  tyres  are  used  to  describe  a 
single  symbol  table  entry.  A  structured  type  will  have  a 
type  declaration  entry  which  contains  th®  printname,  and 
which  points  to  the  structure  type  entry. 

The  array  tyre  is  a  structured  type 
consisting  of  a  fixed  number  of  ,'omponents  that  are  all  of 
the  same  type,  called  the  component  tyre.  The  number  of 
components  is  specified  as  a  scalar  or  subrarre  type  and  is 
referred  to  as  the  index  type.  INTEC-^R  and  REAL  types  are 
net  legal  index  types;  however,  the  scalar  or  subrange  type 
can  be  of  the  tyre  integer. 

Tne  symbol  table  forma’:  for  an  array  entry 
has  the  form  value  of  17R,  Tne  following  byte  specifies  the 
number  of  indices,  or  dimensions  in  tne  array.  The  next  two 
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fields  are  both  two  bytes  lo"^,  tr.e  first  -ortai-.ir^  toe 
address  cf  the  component  type;  toe  seccr.i  ocr  te  i  r. inf  toe 
total  storage  requirement  for  the  array  1'  bytes.  Toe 
eleventh  byte  cf  the  entry  holds  a  value  designation  the 
type  of  the  array's  component  as  aefir.ed  ir.  Table  2.  A  two 
byte  fi°ld  fellows  with  toe  symbol  table  address  cf  the  type 
entry  of  the  array's  first  dimension.  Th i s  is  followed  by  a 
two  byte  field  wr.ich  contains  the  displacement  vector  for 
this  dimension.  The  displacement  vector  for  Qach  a i mens  ion 
represents  the  distance  1  r.  bytes  between  two  el^e^ts  cf  the 
array  which  have  a  difference  of  one  in  the  correspond i-nn 
subscript.  If  the  a^ray  oas  more  than  or.e  dimension,  four 
more  bytes  are  allcted  i  r.  the  symbol  taole  to  store  the 
address  ana  displacement  vector  of  each  additional 
di^er.slo^.  This  entry  will  oe  pointed  to  oy  tr.e  variable 
entry  claiming  this  type.  An  example  of  an  array  type  entry 
is  shown  in  7i^.  12. 

(4)  Record  Tyj^es.  A  record  is  another  N -S-CA5  CAL 
structured  type.  This  structure  has  a  fixed  number  cf 
components,  callea  fields,  each  of  which  car.  be  cf  any 
defined  type.  The  symbol  table  antry  for  a  record  r.as  the 
form  field  value  cf  1FE.  Bytes  six  ar.a  sever,  contain  tr.e 
storage  requirements  in  bytes  for  the  entire  record  .  Bytes 
eifht  and  nine  store  the  symbol  table  address  of  the  type 
entry  of  the  last  field  contained  in  the  record  structure. 
The  remaining  field  entries  are  located  by  chaining:  backward 
to  the  parent  record  entry  via  the  previous  symbol  taole 
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entry  address*  An  exarple  of  a  r ^rrrd  ty^e  erlry  is  sr.cwn  ir. 

TT  t  -  1  " 

-  * 

Ea  ch  record  field  consists  of  an  identifier 
ar.a  a  type.  The  for."  field  of  a  record  entry  res  a  value  of 
5EH.  The  following  two  fields  ere  bytes  for  the  has."  and  th° 
length  of  the  printnams.  Tr. e  next  field  holds  the  mint  name 
characters.  Tne  address  of  tne  oarent  record  is  stored  i- 
the  next  two  bytes.  The  following  field  has  a  ere  byte 
length  and  is  used  to  store  the  record  field's  type.  Tne 
value  stored  is  also  taken  from  Table  2.  Two  f^re  bytes  arc 
used  to  store  the  syrbol  table  aidress  of  the  ty;e  Just 
indicated.  The  last  field  of  this  entry  is  two  bytes  long 
and  holds  tne  offset  of  the  record  field  fror-  the  "e~ord 
case . 

NFS-FISCAL  supports  the  variant  f i °ld  and 
tag  field  constructs  of  records.  Thes°  two  kinds  of  record 
fields  have  symbol  table  entries  similar  to  the  one 
described  above  for  fields,  with  the  exception,  of  the  form 
field,  which  is  rFH  for  variant  fields,  and  57 K  for  tag 
fields.  An  example  of  a  field  entry  is  shown  in  Fig,  I'2-. 

(5l  Set  Tyres.  The  set  structure  defines  a  set 
of  values  which  is  the  power  set  of  a  declared  base  type. 
The  base  tyre  is  required  to  be  a  scalar  or  subrange  type. 
The  set  type  symbol  table  entry  has  a  form  field  value  of 
2?H.  The  following  two  bytes  contain  the  symbol  table 
address  of  the  set  type  identifier.  Ar.  exam  pi  e  of  a  set  type 
entry  Is  shown  in  Fig.  15. 
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defines  the  sequence.  A  file  type  ■tec  1  a  re  t  i  o”  entry  i  -  ;r.* 
symbol  table  has  a  form  fieli  value  cf  "FE.  The  syrtr^l  tail3 
address  of  the  file  type's  identifier  is  co" tailed  i  r  tr.e 
next  two  bytes.  An  example  of  a  file  type  entry  is  shewn  in. 


vi  g  .  16  . 

(7)  Pointer  Types.  NF3-PA3CAL  su:  ports  uya-ic 
variables  which  are  generated  without  ary  correlation  to  the 
static  structure  of  the  program.  T-ese  variables  are 
assigned  a  special  type  called  pointer  t/ue.  The  form  field 
value  is  set  to  27E ,  while  bytes  six  and  sever,  held  the 
symbol  table  address  of  tne  pointer  type's  pare''.*  =>»*♦.  ny.  An 
example  of  a  pointer  type  entry  is  sn.owr.  ir.  Fig.  17. 
d.  Variaole  Entries 

Each  variable  declared  in  an.  N? 3- PASCAL  pro*  ran 
is  inserted  into  the  symbol  table,  "he  for"  fieli  cf  t r.e 
variable  entry  contains  a  value  which  describes  the  tyoe  cf 
the  variable.  The  values  for  this  field  and  the  associated 
types  are  shown  in  Table  1.  Following  the  form  *ieli  are  tn.e 
fields  containing  the  variable  identifier's  prir.tr.a~e,  hash 
value,  length,  and  the  printnare  characters.  A  two  ryte 
field  which  contains  the  variable's  startle.-  address  ir. 
memory  appears  after  tne  printname  characters.  This  address 
is  an  offset  from,  the  base  of  the  variable  area,  calico  the 
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Program  Befar°r,ce  Table  (?HT),  wnic'"  address  i*  a^sigr.-d  'ey 
the  NFS-?*.  SCAL  cede  generator.  The  variable's  *ype 
let*  mines  the  number  of  bytes  assigned  to  stem  the 
variable  in  the  r?7.  The  compiler  Keeps  a  running  total  of 
the  amount  of  storage  assigned  tc  all  variables,  ar.d 
includes  this  value  in  the  pseudo  code  at  the  completion  of 
a  successful  prograr  compilation.  The  i nt erpr e ter /t ra ns la t or 
subsequently  converts  the  relative  addresses  in  the 
intermediate  cole  to  absolute  address  in.  the  final  target 
machine.  Next  is  a  two  byte  field  which  contains  the  SF’r’rL 
address  of  the  variable's  type.  Ir.  the  case  of  the  steriard 
Pascal  types  integer  (FORM  =  0BF),.  real  (IE?),  character 
(13?.)  and  boolean  (???),  this  is  the  address  of  that  type  in 
the  BUILT-IN  $TBL.  Ir.  the  case  of  integer  and  character 
subranges  (2??),  this  field  contains  the  address  of  the 
subrange  type  entry.  In  the  cess  0f  a  scalar  (03?),  this 
field  contains  the  address  of  the  last  of  a  series  of  scalar 
( C?H )  entries.  The  remaining  scalar  entries  are  locate!  by 
chaining  backward  to  the  variable  entry  via  the  previous 
symbol  table  entry  address.  If  tha  variable  is  a  complex 
declaration,  (array,  record,  set,  file  o~  pointer),  this 
field  contains  the  address  of  th°  complex  type's  entry  in 
the  symbol  table.  If  the  variable  is  of  a  type  previously 
defined  in  the  program,  this  field  contains  a  pointer  to 
that  tyoe  declaration.  Examples  of  variable  entries  are 
shown  in  Figs.  16  -  ?<3. 
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e .  Procedure  and  :u  notion  Fr.  t  r  i  =  s 

Every  procedure  ar.d  furctior  i  n  an  .'i P F -? !.S C 1 1 
program  has  an  associated  entry  in  the  symbol  table.  In  tee 
case  of  a  procedure  entry,  the  form  field  is  assig’-ei  the 
value  24H.  The  has11  value,  lenstn  of  the  prir.tr.ame,  ar.d  the 
printname  characters  immediately  follow  the  ferr  field.  A 
one  byte  field  follows  and  stores  the  number  of  parameters 
associated  with  the  procedure .  A  two  byte  field  is  next, 
storing  the  symbol  table  location  of  a  listing  of  the 
procedure's  parameter  types.  This  listing  is  reference:  by 
the  compiler  to  ensure  proper  mapping,  and  i  c.  located 
immediately  after  the  final  procedure  entry  in  the  symbol 
table.  Following  the  parameter  type's  address  field  ir  the 
procedure  entry  are  three  mere  two  byte  fields.  The  first 
field  gives  the  ?F.T  address  assigned  to  the  procedure 
identifier.  The  second  field  gives  the  ?RT  address  assigned 
to  the  procedure  save  block  pointer  (53?).  The  S3?  permits 
recursive  subroutine  cells,  and  will  be  explained  in  the 
section  on  Code  Generation.  The  final  field  in  the  entry 
holds  a  label  value  that  must  be  branched  to  when  the 
procedure  is  invoked.  An  example  of  a  procedure  °ntry  is 
shown  in  Fig.  21. 

A  function  entry  i r.  the  symbol  table  duplicates 
a  procedure  entry  with  two  exceptions.  A  function  entry  has 
a  form  field  value  of  05HJ  and  one  byte  field  is  adaed  at 
the  end  of  the  entry  to  designate  the  type  of  the  function. 
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Function  type  assignments  are  else  taoer  from  Table  2.  An. 
example  of  a  function  entry  is  shown  in  7ig.  22. 

(1^  Formal  Parameters.  Formal  parameters  provide 
a  mechanism  that  allows  a  orocedure  or  function  tc  te 
repeated  with  various  values  being  substituted.  The  formal 
parameters  are  declared  in  the  procedure  cr  function 
declaration  and  can  be  of  four  types:  value  oa rare t er s , 
variable  parameters,  procedure  oarameters  and  function 
parameters.  Fach  declared  parameter  has  an  associated  symbol 
table  entry.  A  value  parameter  entry  has  exactly  the  «are 
format  as  the  variable  entry.  A  variable  parameter-  entry 
also  duplicates  a  variable  symbol  table  entry,  with  the 
exceotior.  of  the  form  field.  The  high  order  bit  cf  the  form 
field  is  set  to  or.?  for  all  variable  parameters.  Procedure 
and  function  parameters  are  entered  as  des'-ribeo.  above  for 
procedure  and  function  symbol  table  entries. 

Figure  23  illustrates  a  sample  series  cf  symbol 
table  entries  with  a  nroceiure  e-^try  followed  by  various 
formal  parameter  entries.  Note  that  the  final  few  bytes  show 
the  listing  of  the  procedure's  parameter  types  that  will  oe 
utilized  for  napping  actual  parameters  into  the  formal 
parameters . 

E.  PARSER 

The  parser  is  a  table  driver,  automaton  and  is  modelled 
after  the  ALC-OL-h!  I?].  Tne  LALH(^)  parser  generator 
produced  the  required  parse  tables  and  the  vocabulary  table, 
VOCAE.  The  parser  operates  by  receiving  tokens  from  the 
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scanner,  analyzing  them  to  determine  if  t.:=y  are  a  par:  r 
the  NPS-PASCAL  ^rarrer,  the"  accents  or  rejects  the  token 

according  tc  the  gramma r .  If  the  token  is  ac^ertec,  ere  of 
two  actions  is  taken.  The  parser  ~ay  s*ack  the  tcker  end 
continue  tc  request  tokens  in  the  lookahead  state,  cr  it  may 
recognize  the  r igh t  part  of  a  valid  production  and  apply  the 
oroducticr.  state.  This  results  in  a  stack  reduction  .  If  tr.e 
parser  r  3  j  e  c  t  s  the  token,  or  ieter^i^es  that  the  t >  e r 
received  does  net  constitute  a  valid  right  part  c  f  ary 
production  in  the  grammar,  a  syntax  error  message  will  oe 
printed  to  the  console  and  the  PZCOVEP.  procedure  is  called. 

?TCCVIP  is  a  procedure  that  permits  co" ti rued  program 
compilation  in  spite  of  the  detection  of  a  syntax  error.  The 
parser  bac^s  up  one  state  and  attempts  to  continue  parsing 
from  that  state.  In  the  event  of  failure,  the  parser 
continues  to  oack  up  until  the  end  of  the  currently  pending 
production  is  located.  At  that  point  th 3  invalid  token  is 
completely  bypasses,  and  ar.  attempt  is  made  to  pars3  the 
following  token.  This  process  continues  until  ar.  acceptable 
token  is  found. 


m  h 

°  parse 

stacks  in 

NFS -PASCAL  co 

r si st  of  a 

state 

s  t  a  c  v- 
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auxiliary 
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tne  oarse 

stack  and 

are  used 

t  c 
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information  extracted  from  the  symbol  t  a  bl  e  need  ed  dur  i  r.f 
code  generation.  Tne  stacks  are: 
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BA.  STS  LCC 


stores  the  symbol  table  a  dor  ess  o:’ 


p  'j  r  r  0  n  t 


identifier; 


t  r*  0 


FCRY$FIFLI  -  store  the  form  field  value  c-f  the  current 
identifier  as  reflected  ir.  trie  syrbcl  tablaI 
TYFF$??£C'<  -  stores  the  type  value  of  t ii e  identifier? 
PPTiADCP  -  stores  the  ??T  address  of  the  identifier; 

L  A  5  ?  L  $  S  T  A  C  K  -  stores  the  label  value  tv.  be  usee,  \  i  t  h 
branching  instructions; 

?ARviNiK  -  stores  the  number  of  formal  parameters  associated 
with  a  procedure  or  function; 

PARv<\'Ub'$Loc  -  stores  the  sybol  table  address  of  the  list  of 
formal  parameter  types  associated  with  a 
procedure  cr  function? 

FXPRFSS$STX  -  stores  the  type  value  of  an  “xrressior. 

F.  C OFF  GENERATION 

The  parser  not  cr. ly  verifies  tne  syntax  of  the  source 
statements,  but  also  controls  the  generation  cf  tne 
intermediate  code  by  associatir.fi  semantic  actions  with 
production  rules.  When  a  reduction  takes  place,  the 
SYNTHESIZE  procedure  (in  SYNTH?. SRC)  is  called  with  the 
production  number  as  a  parameter.  The  SYNT-ESIZE  procedure 
contains  an  extensive  case  statement  keyed  by  the  p-oduotior. 
number  to  perform  the  appropriate  semantic  e^tic^s.  Tap 
syntax  cf  the  lar.fi’ua/re  end  the  semantic  actions  for  each 
reduction  are  contained  within  the  listing  of  the  rodule 
SYNTE2.SRC  . 
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uriarertal  to  ur.  ders  *  a 


knowledge  cf  the  :.“S-?*5C'I  lata  =■  t  ru  ~  tu  r  =  s  .  tr.  e  7 
operator',  *.re  uss  of  pr^r-i.r's  a  -  i  tic- 5.  a*: 

c  c o’ r ’j  r.  i  c a  *  i  0 r  oa  tr.s  net  veer,  t  h a  0  c  ~  3  i  1  0  r  n  :  the  5  -  n  . 
psQudo  ;reratcrs  ?r°  described  in  det  ~-il  ir  Fef.  :  . 
ether  eleren  t<  are  descri bee  below  to  assist 
understanding  tne  NPS-PASCAL  'orpiler  cc-s*r-  :ts  a 


i  r. 
t  c 


explain  tne  logic  used  tc  generate  tne  i  r.  te  r"°-'  5  a  t  r  cc^e. 
That  code  will  later  oe  used  to  ^er.'ra's  tne  tar. ret  re  c  n r  - 


code . 

1*  S^ace  Allocation. 

Tne  aticvnt  of  storage  alienated  tc  a  variable  is  a 
function  of  the  type  cf  the  iter.  Tor  aa'.n  orc<rrr  variable 
requiring  storage  space,  tne  compiler  specifies  the  r.urher 
of  bytes  to  be  alloted,  and  keeps  a  running  total  of  t.oe 
number  cf  bytes  assigned.  The  total  count  is  then  passed  tc 
the  code  generator  to  establish  the  size  of  tn°  Program 
Reference  Table  (PFT). 

a .  Byt e  Data 

Byte  data  iters  are  stored  in  a  s  irgl°  byte  in 
memory.  Byte  data  items  can  represent  characters,  nurbers, 
or  boolean  variables. 

b.  Integer  Tata 

Integers  are  represented  by  two  byte  locations 
in  memory  with  the  high  order  byte  preceding  tne  lew  order 
byte  of  the  inte6er  number.  The  storage  design  imitates  the 
function  of  the  8(160  A  microprocessor  [r]  in  its  rov  en  Qr.t.  of 
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lata  from  memory  cr  from  the  stack  into  th.“  crcc°f sons 
double  byte  registers  during  program  ex~cuticn.  Integers  are 
represented  ir.  tw^'s  complement  form,  with  t.ne  hi  err.  order 
bit  acting  as  the  sign  bit.  A  zero  high  drier  tit  indicates 
a  positive  integer,  vnile  a  high  o  rd  e~  ''it  of  ore  indicate  a 
negative  number. 

c.  Heal  Data 

Peal  numbers  are  r eor ese~ t ed  in  binary  coded 
decimal  PCI)  format.  Facn  real  number  is  represented  by 
fourteen  decimal  digits  ana  is  stored  ir.  eight  consecutive 
bytes,  ’.vher.  loading  a  BCD  value  onto  the  execution  '.ta-k, 
the  byte  located  at  the  lowest  memory  address  contains  the 
sign  of  the  number  along  with  the  sign.  =r.a  magnitude  of  the 
exponent.  Succeding  bytes  represent  two  decimal  dibits  and 
are  ordered  backwards,  such  that  the  byte  closest  to  t:.- 
exponent  bvte  contains  the  last  two  decimal  digits  of  tre 
number,  while  t.ne  last  byte  contains  the  left-ncst  two 
decimal  digits  of  the  r.umoer.  The  format  of  a  BCD  r.umoer  in. 
memory  is  displayed  in  Fig.  24. 

^he  exponent  byte  ir.  a  BCD  number  uses  the  high 
ord°r  bit  to  indicate  the  sign  of  the  number:  a  ere 
indicates  positive,  a  zero  negative.  The  remaining  sever, 
bits  represent  the  exponent  and  its  sign.  TV'  exponent  is 
biased  by  64  so  that  values  greater  tnan  64  ( i ”  sev°r  bins) 
depict  a  positive  exponent  and  values  less  than  64  depict  a 
negative  exponent;  the  exponent  is  the  difference  between  64 
and  the  actual  value.  The  bias  allows  exponent  values 
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ran?!".*  from  -64  to  +62.  Tn®  ru-oer  si  way'  assumes  that 
the  decimal  point  is  normalized  befo.3  *  r.  ■>  hirst  digit. 

d.  String  Data 

Strings  are  stored  sequentially.  1  r. e  first  byte 
of  the  string  stores  the  string  length,  th':s  limiting 
strings  to  a  length  of  255  bytes.  Immediately  following  tn£ 
length  byte  ar°  tne  .ASCII  characters  of  t.o®  strin?. 

2 .  Arithmetic  22sra_ticn' 

a.  Logical  Operations 

Logical,  or  boolean,  operations  act  or.  byte 
values  of  2Sro  ana  one  only.  A  zero  value  indicates  a  false 
condition,  while  a  r. on-zero  va  lu®  indicates  true.  Logical 
operations  requiring  comparison  beTweer.  two  elements  returns 
the  value  of  the  operation  in  the  true  or  false  form. 

b.  Integers 

Arithmetic  operations  with  integers  are 
performed  by  talcing  the  top  two  values  from,  the  execution 
stack,  and  placing  them  in  tne  double  byte  registers  in  the 
microorocessor ,  and  then  carrying  out  the  requested 
operation  using  the  microprocessors  native  functions. 
Integer  arithmetic  includes  addition,  subtraction, 
multiplication,  division  with  truncation,  modulo  division, 
logical  comparisons,  and  transformations  to  real  (RCT) 
format.  All  commutation  results,  except  for  real 

transformations ,  are  returned  to  the  execution  stack  in  the 
two  byte  integer  format.  Relational  operations  or  two 
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integer  values  are  carried  cut  ir.  ac~erdar.  ee  witu  th  e  ruijs 
for  integer  arithmetic. 

P.  ea  1  s 

Peal  arithmetic  operations  are  core  comolex  tear 
these  with  integers  due  tc  the  nature  of  the  ?CT  format.  The 
process  is  sirilar  to  that  of  integers  in  t  n  a  t  pairs  of  raal 
nurher  bytes  are  novel  tc  the  £0£P  registers.  The  recuired 
operation  is  performed,  and  the  resulting  real  value  is 
returned  to  the  execution  stack  in.  the  eight  t y te  r lT 
format.  Peal  values  also  follow  the  rules  of  integer 
arithmetic  when  involved  in  relational  operations. 

2  .  Set  C2*>ra  tiers 

The  set  operations  of  set  union,  set  difference,  set 
intersection,  set  equality  and  inequality,  set  inclusion  a-'i 
set  membership  are  not  implemented  ir.  this  version  of 
NPS— PASCAL. 

4 .  String  QE^raticni 

The  relational  operators  of  equality  ard  inequality 
have  beer,  implemented  for  strings.  The  remainder  of  the 
relational  operators  denote  lexicographic  ordering  according 
to  the  character  set  ordering,  and  are  not  implemented  ir. 
this  version  of  NPS-PASCAL. 

5.  and  £iiaL.li2dS 

Procedures  and  functions,  also  called  subroutines, 
give  NPS-PASCAL  the  ability  to  display  program  segments  as 
explicit  subprograms.  The  only  difference  between  a 
procedure  and  a  function  is  that  the  function  returns  a 
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value  to  the  top  of  toe  execution  stack  after  it  is  invoked? 
a  procedure  does  not.  Tr.is  rears  that  a  function  ''all 

actually  represents  an  arithmetic  expression.  Procedure 
calls,  however,  s*and  alone  as  prcerar  statements.  Ar. 
analysis  of  tne  following  procedure  and  function 
irplerentatior.  by  Elector,  and  Koore  [9]  concluded  tnat  the 
current  design  is  inadequate.  Insufficient  information  is 
passed  to  allow  pa  rare  ter  rapping  from  the  execution  s  *  a ;  k. 
to  the  PRT . 

a.  Invocation 

Procedures  and  functions  can  be  i’-votced  with 
zero  or  more  actual  nara-reters.  The  list  cf  actual 
parameters  is  substituted  into  th°  corresponding  list  of 
formal  parameters  declared  in  the  procedure  or  function 
definition.  If  tne  formal  pa  ra meter  is  a  variable  parameter, 
the  actual  parameter  has  to  be  a  variable  also.  Should  the 
formal  parameter  be  a  value  parameter,  then  the  actual 
parameter  can  be  an  expression,  provided  that  the  expression 
type  matches  the  forral  oarameter  type.  For  procedure  and 
function  forral  parameters,  tne  actual  parameter  must  be  a 
procedure  or  function  identifier.  Actual  parameter  types  are 
checked  against  formal  parameter  types  stored  in  the  symbol 
table  during  program  compilation.  The  method  of  passing 
actual  parameters'  values  is  via  the  execution  stack.  The 
procedure  or  function's  memory  location  is  generated  ir.  the 
form  PRO  <label>,  where  PRO  is  a  mnemonic  meaning  "branch,  to 
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subroutine",  and  <label>  is  the  label  value  sterol  in  tne 
subroutine's  symbol  table  entry. 

b.  Storage  Allocation 

All  r>a ra^et ers  and  variables  declared  within  a 
procedure  or  function  are  assigned  a  location  in  tne  ??  7 . 
These  locations  immediately  follow  the  ?DT  location  of  the 
procedure  or  function  identifier.  Upon  recognition  of  a 
comolete  subroutine,  another  P?7  location  is  allocated.  This 
location  is  called  the  Save  Slock:  Pointer  (SB?)  for  the 
subroutine.  The  F^T  locations  extending  from  the 
subrout  ir.es 's  identifier  location  through  the  S3?r  make  up  a 
Pocedure  Control  Block  (FCB).  The  effect  is  that  the  ?Cr  is 
a  contiguous  set  of  PR T  cells,  as  seer,  in  Tig  £5.  The  PCS 
construct  is  based  on  the  one  used  in  ALGOL-2  [If"!,  ar.i  its 
usefulness  is  in  recursive  calls  to  a  procedure  or  function. 

c.  Parameter  tapping 

NP5-PASCAL  uses  a  scheme  similar  to  ALGCL-I  fiz] 
in  mapping  the  actual  parameters  of  a  orocedure  cr  function 
into  its  formal  parameters.  After  recognition  of  a 
subroutine  identifier,  the  actual  pa  ra meters  that  are 
identifiers  have  their  intermediate  code  generated  in  tne 
form  of  a  "PAF.th"  or  "PAP.^V"  rnemonic  followed  by  the  PPT 
location  of  the  actual  parameter,  ’’"nese  mnemonics  lead  the 
execution  stack  with  the  values  of  tne  actual  parameters.  If 
the  actual  parameter  is  an  expression,  the  expression  result 
will  be  loaded  automatically  or.  top  of  the  execution  stack. 
Consequently,  the  compiler  generates  the  mnemonic  ’ FARVX" 
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.after  recognizing  a  comolete  expression  that  is  acting  as  a 
value  parameter.  PARMX  will  not  require  any  action  by  the 

code  generator. 

With  the  actual  parameter  in  place,  program 
control  will  branch  to  the  procedure  or  function  itself.  The 
compiler  generates  code  to  place  three  items  on  top  of  the 

execution  stack.  The  first  item  is  the  number  of  formal 

parameters  (f)  in  the  subroutine,  the  second  is  the  PRT 

location  of  the  subroutine's  identifier  (IILOC),  and  the 
third  is  the  SPP  address  in  the  PRT  (SEPLOC)  of  the 

subroutine.  The  compiler  then  generates  the  SAVP  operator, 
followed  by  the  total  byte  count  of  PRT  storage  (t)  assigned 
for  the  subroutine's  identifier  and  all  formal  parameters. 
This  is  followed  by  a  listing  of  byte  storage  required  by 
each  formal  parameter  (Pi)  in  the  PRT  ir.  descending  order. 
The  execution  of  tne  SAVP  operator  is  expected  to  cause  the 
following  actions  to  be  generated  by  the  code  generator. 

(1)  The  SBP  location  is  examined 

(a)  if  SEP  =  3  then  SBP  :=  1,  else 

(b)  SEP  >  3  and  segment  length  (SBPLOC  -  IDLOC  +  2) 
is  obtained  from  the  top  of  available  memory, 
for  example,  at  address  x.  The  PCB  is  then 
copied  from  the  PRT  to  the  memory  segment  at  x. 
The  contents  of  the  segment  at  x  is  then  called 
the  Save  Block  (SB).  SBP  ;=  x. 


61 


(2)  The  top  two  elements  of  the  executior  stac>  ere 
deleted;  the  next  elemen’:  (f)  is  copied  ana 
deleted  fro-"  tne  stack;  Pi  =  p(l). 

(2)  If  f  =  0  tnen  halt.  All  actual  parameters  have  heer. 

copied  into  the  formal  parameter  location  in 
the  FCP. 

(4)  PET  location  (IELCC  +  t  -  p ( i  ) )  :=  top  of  execution 

stacKj  delete  the  top  element  cf  the  execution 
stack;  t  :=  t  -  p(i)J  p(i)  :=  p(i)  *  1. 

(5)  f  :=  f  -  i;  go  to  step  (3). 

This  process  ensures  that  recursively  calling  a  subroutine 
will  not  destroy  the  local  variables  and  parameters  of  any 
preceding  calls. 

d.  Function  Return  Value 

Coupled  with  the  SAYP  operator  is  the  UNS? 
(unsave)  operator  that  reverses  the  action?  of  SA”P.  Two 
parameters  are  required  at  the  top  of  the  stack,  the  Sr? 
locations  in  the  PET  (S5PL0C),  and  the  PET  location  cf  tne 
subroutine  identifier  (IELOC).  The  actions,  then,  of  U'JSP 
are : 

(1)  The  value  stored  at  IELOC  is  copied  to  the  tcp 
of  the  stack  (this  returns  a  value  for  the 
function  calls?  this  value  will  be  deleted  for 
procedure  calls ) . 

(2)  If  the  value  of  S5PL0C  is  greater  than  1  then 
the  S3  at  location  S3PL0C  in  the  free  memo ry 
area  is  copied  back  to  the  PCB  and  the  memory  is 


62 


7 A R  Y  :  IN 


ER  > 


??OCEET’BF  LO  (X;  INTEGER  VAR  Y:  INTEGER  ) 
VAR  T EVP  :  PEAL; 

R'GIN 

TEN? : =S ORT ( X  ) 

Y:=TRUf-!C  (  TEV?  )  ; 

eve; 


LO(49.E) J 


STACK 


P^T 


rs- 


rs- 


rs- 


1 

LEECH?  S A V P 

S  *? 

i 

i 

{* 

28  ! 

SEP  in  PRT 

TZ?*"? 

i 

] 

- 

22  | 

LO  in  PRT 

Y 

i 

t 

- 

2  ! 

*  Parameters 

y 

\ 

f 

- 

c  ! 

Actual 

LO 

i 

i 

- 

49  ' 

Paraeters 

r 

i 

i 

r 

AETEE  SAVp, 

BEFORE  IT'S? 

SE? 

1 

! 

TEN? 

- 

Y 

£ 

X 

4  '"S 
V.< 

LO 

- 

D 

AFTER  U N S P 

SB? 

i 

t 

0 

TEN? 

1 

1 

7. 

Y 

i 

i 

7 

X 

i 

i 

49 

LO 

l 

\ 

- 

r 

1 

i 

7 

FIGURE  26. 


63 


freed.  If  SrP  -  1  then  Sr?  :=  0.  Co  r.sec  uer.t  1  y . 
the  UN  SP  operator  returns  a  value  f  r  or  f  u  no  tier. 

calls,  a r.d  restores  the  PCI  in  the  event  of 
recursiv=  ''alls.  Figure  26  shews  the  actions  cf 
the  SAVP  ana  UN SP  operators  on  the  P?T  and  the 
execution  staci. 

e.  forward  Declared  Procedures  and  Functions 

To  permit  tne  invocation  of  a  pro- -dure  or 
function  prior  to  its  definition  NPS-PASCAL  utilizes  a 
forward  reference.  ThQ  forward  reference  consists  of  the 
procedure  (function)  head,  followed  by  the  word  X'C?WARD. 
When  the  procedure  'function)  is  defined  later  in  the 
program,  the  parameters  are  not  repeated.  TCF.W’AP.D  is  not  a 
reserved  word  in  NP5-PA5CAL.  It  is  instead  referred  to  as  a 
directive.  Directives  are  identifiers  ir.  NPS-PASCAL,  that 
car.  only  occur  immediately  after  a  procedure  cr  function 
heading.  Directives  are  contained  in  the  3TJ  ILT$IN  STB  L . 

f.  Standard  Procedures  and  Junctions 

The  built-in  procedures  and  functions  that 
currently  exist  ir.  NPS-PASCAL  corresucna  to  the  standard 
procedures  and  functions  specified  in  STANDAPD  PASCAL.  Their 
operation,  however,  is  considerably  different  from  user 
defined  procedures  and  functions.  The  compiler  first 
generates  code  for  any  subroutine  actual  oarameters .  A 
mnemonic  for  the  built-in  procedure  cr  function  is  ther 
generated  which  tells  the  interpreter/translatc r  that  it 
must  remove  the  parameters  fom  the  execution  stack,  perform 
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the  requested  operation,  and  return  the  result  to  th-  stc>’i. 
The  standard  procedures  for  input  and  output  (-ead,  P.eailr, 
*  r  1 1  e  ,  and  '*  r  i  t  e  1  n  )  will  not  reeuire  special  acticr  tc  be 
taken  by  the  interpreter/translatcr.  Tha  remaining  standard 
procedures  dealing  with  files  end  pointer  variables  generate 

mnemonics  that  will  require  action  by  the 
interpreter/translatcr. 

6.  IH21ii~!2utpu  t 

Input  and  output  (I/O)  can  be  handled  in  two  ways: 
via  console  and  via  disk.  Console  I/O  refers  tc  the  device 
the  NP5-PA SC A L  user  is  utilizing  tc  provide  commands  tc  the 
system  —  usually  a  CRT  terminal  or  teletype,  risk  I /C 
refers  to  utilizing  auxiliary  files  or.  tne  disc  for  data 
manipulation. 

Input  fror  consle  I/O  is  achieved  throug.n  RTA 2  or 
RRAELiV  statements.  Console  output  is  accomplished  by  tne 
WRITS  era  WFITFLN  statements.  Input  to  the  console  is 
accomplished  by  an  operating  system  routine  that  reads  one 
full  console  line  into  an  input  buffer.  Tne  coie  generator 
generates  code  to  examine  the  buffer  and  convert  ASCII 
characters  contained  witnin  the  buffer  into  apprcrriate 
NPS-PASCAL  internal  integer,  real  or  string  format.  The 
input  value  is  associated  with  the  arpromiate  read 
statement  variable  parameter  and  then  stored  in  the  memory 
location  allocated  for  that  variable.  A  write  statement 
takes  t'-’e  internal  representations  cf  integer,  decimal,  or 
byte  values  and  converts  them  to  their  ASCII  character 
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format .  Thes®  values  are  trier,  passed  tc  er.  operating  sys*f~ 
print  routine  f  o  r  console  output.  0  c  r  s  t  a  r.  i  s  arc  strict 
variables  are  stored  as  ASCII  strings  i  r  tr.e  in  termadiate 
code  and  the  interpret er/tra  islator  v ill  venerate  code  tc 
send  therr  cr.aracter  by  character  to  tne  system  print 
routine. 

Lisk  I/O  is  achieved  through  the  sare  read  ar.d  write 
statements  utilized  for  console  I/O.  row  ever ,  tc  r  ea  ■:  data 
fro r  a  disk  file  reauires  that  tne  file  identifier  be 
specified  as  the  first  parameter  in  a  read  statement's  list 
of  actual  parameters.  Tne  file  identifier  has  tc  oe 
specified  in  the  same  manner  for  disk  write  statements  as 
well.  The  file  identifiers  used  in  read  and  wri^e  statements 
must  be  declared  in  a  variable  declaration  part  of  a  program 
block,  or  as  a  program  parameter  in  the  program  declaration 
(called  an  external  file).  The  file  identifier  has  a 
specific  °PT  entry  assignee  by  tr.e  compiler.  At  proa-ram 
execution,  space  will  have  tc  be  allocated  or.  tcc  NFS- PAS  CAL 
stack  for  the  File  Control  31ock  (7C3)  information  necessary 
to  interface  file  operations  with  the  operating  system. 
Additionally,  space  should  b«  provided  for  a  12m  byte  I/O 
buffer  for  every  declared  file. 

7 .  ^PS-PASCAL  Pseudo  Operators 

,4  complete  description  of  each  of  the  NFS-PAPCAI 
pseudo  operators  is  presented  i-  Fef.  2. 
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As  notes  in  Re:’.  2,  tr.e  BUILT*  I’!  ST? I  rust  be  1  oca  tec  <?  t 
me-rory  Iccetion  fldcE  in  the  execute  ale  module  ,  sir  ~e  tr.e 
collision  field  ar.a  previous  entry  addresses  ere  calculates 
and  entered  by  hard.  Care  r|jst  be  taken  d urine  the  LINK  and 
LCCATT  pro^rars  to  ensure  tnat  the  BUILTSINSTBL  is  locates 
properly.  Since  the  LINK  prograr  aids  obj°c*  rcdul-s 
together  linearly,  it  is  necessary  to  specify  TABUS  .CBJ  as 
the  first  nodule  in  the  comma -d  li’-e  to  the  LINK  pro^rar. 
While  organizing  the  LIN'Ked  together  roiules  and  adjusting 
the  aidrass  into  absolute  cola,  the  IOCA.F  prograr  us-s  a 
default  oraer  of  CCIT,  STACK,  TAT1,  v£?/  CRT.  Constants  in  the 
?LW-£T  sourc®  pro6TcT  (distinguished  fr or  variables  ay  the 
TATA  directive',  however,  are  allocated  rerory  first,  before 
a’yv  executable  code.  Forcing  the  -=rorv  address  a  s  s  i  grr  ?"  t  s 
t  c  start  at  21?  Zr.  wi  t*  t.ne  directive  '  COT  I  1CTE  '  to  the 
LC''^7  program  places  BUI LT *  I N iT^L  at  lCc",  so  a  three  byte 
dummy  field  was  added  right  before  th3  BUILT S  IN  * TBL 
declaration.  The  first  three  bytes  of  the  final  C?/v 
executable  file  (1C£F,  1C1H  and  lf'2p'  are  used  to  st^re  a 
juf-n  instruction  which  points  to  the  ro-piler  entry  point. 

The  two  previous  theses  used  a  r.  £C6f  sir.ulatcr  wri-h  ran 
or.  the  IBf  36d  ard  zeroed  ne~ory  prior  to  loading  the 
compiler.  yany  of  the  variables  were  not  initialized, 
instead,  relying  o->  a  zeroed  rerory  location  for  their 
value.  PL/b'-8e  includes  two  directives,  INITIAL  ard  BAT.1, 
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which  are  used  to  set  the  initial  valu  =  •' :  van  i  a '•>  Is  s  a  -  i 

ccr. starts,  respectively. 

Ar.  additional  difference  between  ?l/>  am  ?l.  y-S?  is 
that  the  latter  allows  an  implicit  dimension  s*ier' i  f  i  e r  .  ".his 
allows  the  table  declarations  in  mAT>LIS  .SHC  ari  c •♦her  lorn 
declarations  to  be  -ade  without  hr. owing  or  counting  the 
exact  length  of  the  data  string.  The  imp licit  dimension 
specifier  is  invoked  by  entering  ar.  asterisk  ir.steai  of  a 
decimal  constant,  i.e.  (*)  instead  of  (43). 

Due  to  a  deficiency  in  the  grammar  an:  its  associated 
tables,  a  record  structure  was  not  recognized  until  the 
statement  was  parsed.  It  was  then  tcc  late  to  initialize  the 
variables  used  to  analyze  each  record  declaration.  As  ar. 


interim  fix, 

the 

code  tc  hand 

1 e  a  record  d 

e~l  are  t  i  or.  had 

been  written 

into 

the  scanner 

portion  c  f 

♦he  ''crpiler. 

Contrary  to 

the 

structure  of 

the  compiler. 

w'  h  -  r.  a  record 

declaration  was  recognized  by  the  token  r.urber,  the  record 
initializing  code  was  executed.  Correcting  this  pro  ole-  was 
the  subject  of  a  project  undertaker,  by  Anderson  ar.d  Vvers 
[10]  during  a  course  in  compiler  theory  at  the  \aval 
Postgraduate  School.  As  a  result  of  their  work,  this  code 
was  removed  from  the  scanner,  and  placed  in  the  production 
case  statement  where  it  belongs.  The  gramrar  was  corrected, 
the  parse  tables  regenerated,  and  changes  to  the  existing 
tables  were  made  by  comparing  the  listings  ar.d  typing 
changes  by  hand.  In  the  SYNTU2.SPC  module,  production  55  was 


f  c 


changed  from 


<F ~C OPD  TY ?I>  ::=  RFCCRD  <?IILD  LIST>  F'JB 
t  o 

<RFCCRI  TY?  L>  ::=  <RECCRD>  <FIFLE  LIS?>  RNI 
and  production  56  was  added  to  read 
<?FCOPD>  ::=  RECORD. 

A.  record  is  now  recognized  when  the  token  P~CC?D  is  parsed, 
and  the  initialization  of  variables  takes  place  correctly. 
All  the  remaining  productions  were  renumbercd  to  properly 
reflect  the  parse  tables. 

The  user  assistance  program  SYKB0LT>3LT  provided  by  the 
last  thesis  effort  failed  in  attempting  tc  print  th-  symbol 
table  for  nearly  every  test  program  tried.  Considerable 
effort  was  expended  during  the  current  effort  to  debug, 
modify  and  upgrade  this  program  to  a  useful  tool.  Code  was 
added  to  determine  the  actual  location  in  memory  of  the 
symbol  table  during  the  compilation,  and  the  symbol  table  is 
^oved  to  that  address  for  processing.  The  S YY^OLTA^LF 
program  was  eventually  abandoned  for  a  number  of  reasons. 
First,  it  was  attenptine  tc  read  sequentially  entries  in  the 
symbol  table  which  were  designed  to  be  accessed  via  the  hash 
table.'  All  too  often,  the  program  crashed  because  it  was  rot 
able  to  locate  the  beginning  of  the  next  entry.  Yore 
frequently,  though,  the  entry  in  the  symbol  table  was 
incorrect.,  causing  the  SYYBOLTABLF  program  to  use  incorrect 
pointers,  lengths,  codes,  etc.  The  SYr-ROLfARLF  program  was 
replaced  bv  a  much  simpler,  but  much  more  useful  program, 
called  SYYE'JYp,  which  is  described  in  the  next  paragraph. 
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The  C?/v  utility  2TVF  vas  modified  *c  mint  t::e  ,'cr.t«r.ts 


Cf 

a  file 

a^  a  single  column 

0 

f  hex  ■“  h  a  r  a  ? 

ter 

na  1  r 

rep 

resenting 

a  byte.  Eacn  pair 

i  s 

creceiei  ov 

a 

four 

hex 

address , 

which  corresponds 

to 

that  byte's 

add 

rec  s 

symbol  table.  durir.-  c  orpi  la  t  i  or. .  The  address  cf  the 
beginning  of  the  symbol  table  is  a  constant  in  the  ' YVET’1'? 
program ,  and  will  have  to  be  reset,  each  time  to  reflect  the 
n°w  address  cf  the  symbol  table  whenever  the  compiler  is 
charged.  This  necessitates  reassembling  S  Y  y  E U v F  fc-r  each  new 
version  of  the  compiler,  after  determining  the  starting 
address  of  the  symbol  table  from  the  previous  SFT6L  ertry 
address  of  the  second  entry.  The  outout  from  the  SYyEtTP 
program  can  be  easily  and  efficiently  scanned  by  hand  tc 
determine  the  contents  of  each  entry.  Collision  address  and 
previous  entry  adress  oairs,  for  instance,  can  usually  be 
recognized  or.  sight.  3  ir.ce  ‘he  p  rograr  is  r.  o  t 

data-dependen t ,  it  cannot  c^ash  due  to  improper  symbol  table 
entries.  \  description  of  the  changes  to  the  Cr/b  utility 
2  !J  b  P .  A  S  h*  is  provided  in  Appendix  C. 

Examining  tne  symbol  tables  from  various  test  programs 
showed  that  the  address  of  the  parent  type  of  simple 

variable  declarators  was  not  be  entered  properly.  Ir. 
production  66, 

^ITENT  VAR  S T ? I N C- >  <1 EEMT IEI ZR  > , 

code  was  added  to  save  the  parent  typ°. 

In  the  ZN?B$SUE$NTHY  procedure  in  SYNTHl  .SPC ,  the 
procedure  SU3RSCASI  was  being  called  twice  for  the  sar*3 

7  v? 


licit  (uoper'  of  tr.e  su  brar.ge .  Cole  was  audeu.  tc  -edify  tr.e 
second  cell  to  examine  t  ne  low°r  licit  eni  tr.u  s  c c  r rer  1 ly 
determine  the  number  of  entries  in  the  subrange. 

In  cost  case  statements  t.nroughcut  the  ''omriler.  there 
is  no  rang0  checking  done  on  the  variable  used  tc  index  into 
a  case  statement.  In  PL/V-30,  if  the  index  evaluates  to  a 
number  great°r  than  the  number  of  case  statements  available, 
the  result  is  undefined.  In  otner  -'ases,  semicolons 
representing  no-operaticr.  cases  were  emitted,  causing  the 
wrong  code  to  be  executed  for  a  giver.  case.  Code  was  added 
tc  direct  the  index  to  the  correct  rase. 

In  a  few  instances,  PL/v-30  address  variables  (15-bit) 
were  being  passed  tc  byte  variables  (3-bit )  .  result  ine  in  tr.e 
eight  high-order  bits  being  truncated  and  lost.  Tr.e 
offending  variable  declarations  w°r°  corrected. 

’.v'her.  the  compiler  was  broker,  into  modules,  there  were  a 
substantial  number  cf  variables  declared  PUBLIC  and  EXTERN'.1.! 
needlessly,  k'hen  a  variable  was  used  only  in  the  module  ir. 
which  it  was  declared,  the  0 UB L I C  declaration  was  deleted.  A 
number  of  subroutines  were  declared  PUBLIC  in  ore  module  and 
net  called,  and  declared  external  and  called  from  only  one 
other  module.  These  subroutines  were  moved  to  the  calling 
module  and  not  declared  PUBLIC  or  EXTERNAL. 

The  displacement  vector  associated  with  each  array 
dimension  was  being  calculated  incorrectly  and  it  was  stored 
in  the  same  symbol  table  entry  as  the  subrange.  The  array 
offset  (for  non-zero-origin  array  dimensions)  was  b°ing 
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calculate!  incorrectly.  Code  was  added  to  ter-pcra ri  1  y  stack 
the  array  declarations  and  subsequently  enter  titer-  into  tne 

symbol  table  correctly.  Code  was  also  added  tc  calculate  tr.e 
array  offset  and  the  displacement  vector  for  each  dimension. 


Signed  identifier  constant  entries  in  tr.e  symbol  table 
are  identified  as  such  by  the  7CP.Y  value  -il",  but  ’•'r.e  s  i  -rr. 
is  r.ct  stored  or  applied  to  the  value  of  the  c'ct  start. 

Arrays  were  only  ex  ami red  for  correct  identification  and 
entry  into  the  symbol  table.  Arrays  cr.  the  rig'-t  sice  cf  the 
assignment  statement  are  not  handled  ororeriy. 

Since  no  interprets  has  been  written,  hare  is  still  nc 
way  to  validate  the  intermediate  code  produced.  Ire  compiler 
will  compile  some  small  test  programs  without  sa  «hi  r.g ,  but 
it  frequently  will  crash  or  go  into  infinite  loops. 

The  code  in  the  mod u-lss  SYIhr^L .  5F.C ,  SYVT-1  ,S?C  and 
SYNTE2.SPC  cannot  be  trusted  to  behave  as  descried  ir  the 
two  previous  thesis  efforts.  Each  procedure  needs  to  be 
examined  on  a  line-bv-lire  basis,  with  a  possible  eve  toward 
rewriting  substantial  portions.  In  ^ar.y ,  ra  r.y  cases . 
variables  are  AKEed  or  CPed  with  un explained  hex  constants. 
The  function  of  tnese  constants  should  be  determined  and  the 
hex  constants  should  be  named  and  documented.  In  many  ether 
instances,  variables  are  shifted  left  or  right  ari  ther 
again  ANEed  or  OPed  with  hex  constants.  The  shifting  can  be 
avoided  by  defining  and  documenting  the  appropriate 
The  global  *  a  ta  base  should  be  better  organized,  defir.  ed  and 
documented.  Variables  enter  procedures  ir.  unknown  states, 
and  are  used  or  modified  without  rang°  checking  cr  ar.y  sort 
of  validation.  Tne  ranges  on  case  statement  indices  need  to 


be  checked  before 


use 


and  each  case  should  be  a  TO;  FME? 


so  that  statements 


block,  even  if  for  a  nc-cperation  oase, 
added  will  not  introduce  extra  and  erroneous  cases. 


r  o m  t  r*  q  t  r  m  c 

W  .  •  kJ  Ks  i  ±  A  .I* 


\ PS -PASCAL  is  still  a  long  way  fror  "cmrlets 
implementation.  Xajor  prools^s  e^ist  in  the  rarse  stack 
structure,  in  semantic  action  subroutines  and  ir.  tne  sv-bcl 
table  construction  ar.d  access.  The  e round w c rk  f  o r  a  viable 
PASCAL  compiler  has  been  started,  but  the  cco-piler  design 
needs  a  critics  1  review  arc  analysis. 

The  cremation  cf  this  compiler  is  still  d-=pe de- 1  c*1  the 
development  of  an  8?£0  interpreter  or  translator  to  validate 
the  pseudo  operators  ^er.^rated.  Completing  the  NF5-PASCAL 
c  oitpi  ler  project  will  require  a  substantial  investment  of 
study  and  time. 
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A  ?  p  T  N  r  I ::  A  -  Co’-oiier  ,-rror  b'essa.T-s 

Array  dimension  $  t  c''  >  o  ve-f  1  ov :  Simplify  a  r  ray 
dec  la  ra  ti  or. . 

Array  nest  overflew:  Simplify  declaration. 

Assi^n-er t  type  error:  Typa  of  ^xpressic-  net 
compatible  with  assignment  variable  tyre. 

Invalid  expression:  The  variable  ty re s  within 
the  e xn  res  si  or  are  not  compatible. 

Incorrect  control  variable:  The  certroi  variable 
has  not  b  e  e  r  declared  or  is  of  type  R r  A.  L . 

IuplicafQ  con  start  name:  Constant  identifiers 
must  be  unique. 

Tisir  error:  Recompile. 

luplicate  type  name:  Type  identifiers  mu s *  be 
ur ique. 

Exponent  sice  error: 

Invalid  expression  type:  "he  types  of  the  variables 
used  in  an" expressi on* are  incompatible. 

Invalid  array  index:  Array  index  types  rus*  be 
scalar  -  I^ROER  or  REAL  types  are  invalid. 

Invalid  constant  variable:  Constant  entry  in  symbol 
table  is  ir.va  lid  . 

I r tet?er  size  error: 

Improper  pa ra meter:  Tne  actual  parameter  type  decs 
*^et  match  the  formal  parameter  type. 

Invalid  read  variable:  Only  HTTOIR,  REAL  or  STRIVC 
values  can  b°  read. 

Invalid  subrange  error:  Check  type  ar.d  lirit.s  of 
declared  subrange. 

Invalid  type  error:  Array  corrporent  type 
specification  invalid. 

Variant  sta°k  overflow:  Reduce  tne  number  of 
variant  cases. 

Label  syntax  error:  All  labels  ~ust  be  i'’teoers. 
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\  c 

Incorrect  character: 

1 

1 

:je 

Incorrect  actual  parameter:  Tne  actual  pa  ram°t  sr 
rust  be  a  variable  and  rot  an  expression. 

N  ? 

No  production:  Syntax  error  in  ccurce  line. 

1 

'1 5 

Invalid  set  elerent:  Set  ele~er.ts  r^st  be  scalar. 

j 

' 

?  Z 

Parameter  error:  Tnis  parameter  format  can  only  be 
used  in  a  write  staterert. 

l 

i 

?\ 

Incorrect  number  of  parameters:  ?h3  total  number 
of  actual  parameters' fails  to  ecual  the  total 
nurber  of  formal  paraneters. 

R.M 

record  field  stack  overflow:  Seduce  ‘he  nurber  of 
fields  specified. 

I 

ST 

V  RITE$S7.VT  parameter  error:  The  parameter  has  to 
be  of  type  PEiL. 

Stat3  stack  overflew:  simplify  prCf-ram. 

' 

rr>  T 
i 

Invalid  type  identifier:  Tvre  identifier  r.ot 
previously  declared. 

pc 

Symbol  table  overflew:  Seduce  number  of  declarations. 

UL 

Undefined  label  error:  Label  net  declare!  in 
label  stat erer. t . 

i 

UC 

Invalid  unary  operator:  Variable  tyoe  rust  be 

INTEGER,  RZM  or  subrange  of  INTEGER. 

UP 

Ur. declared  rrocedure:  Procedure  id  =  rti^ier  not 
previously  declared. 

Variable  declaration  stack  overflow:  Fecu~e 
the  number  of  variables  derlared  per  line. 

VO 

Variable  stack  overflow:  Reduce  the  ler.rth  of 
variable  prirtnar.es. 

T;?P 

WP.ITE$STyT  parameter  error:  The  length  parameter 
has  to  be  of  type  integer. 

■ 
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I  r.t  erreuia  t  e 


it?T,,r:v 


L  :  '  - 


0 C: 


*  -  a  ; 


The  last  thesis  effort  include!  a  p  rcr ra^  -a  1  lei  ZTZ  "'Z* 
which  will  read  the  i  r.t  e  rrea  ia  t  e  code  file  arc  -rve'*  t;.  e 
hex  pseudo  codes  into  tne  corresponding  ■v:r  mi  '  s .  In-- 
parareters  associated  with  certain  operators,  =  s 

labels,  trar.ch°s  ar.d  load  i~rediat®  values  ar<=  r  r  i  - 1  ? ;  also. 
Integer  ar.d  real  nurhers  are  converted  to  ce-'iral 
Strings  are  displayed  as  A3C 1 1  characters. 

To  use  the  I IC  proerar,  cor  pile  a 

orrittir.g  the  iC  corpiler  to^gi®: 

A ^PASCAL  T  TS  T . “ *  S 

a  he"  a  successful  cornilaticr  is  oorplete,  rur  trr 
o-oerar  on  the  i  r.  t  erred  i  a  t  a  file: 


A>Z?COD:  T 1 3  T  .  ?  I  \ 

Zh®  contents  of  tne  i  r.  t  erredia  t  e  file  will  be  printed  or.  the 
c  cn  s  c  1  ® . 


?£ 


sy"  do  1  table  displaying  pro  ?:ar  was  reveler*:  tc  -in 
in  exa'-ir  i  rg  the  symbol  ta  Die  and  1  “bug  mi  r.m  toe  compiler.  It 
is  based  or.  t>e  C?/v  ITV?  utility,  arc  uses  tbe  star*  in* 
address  cf  the  syr.  ool  table  ir  memory . 

To  oreoare  the  STV|IU.VP  proarao,  the  user  ~'.is  t  first  use 
the  standard  C?/h  utility  LTMP  to  iu: —  the  s/rbol  table 
file.  In  this  durp,  the  user  aet°rmir.es  tne  starting  aedress 
of  the  s/Tbol  taole  by  exa~iniog  the  previous  entry  address 
of  the  second  entry.  This  address  vill  change  whenever  the 
compiler  is  altered,  since  the  symbol  table  is  assigned  tc 
the  first  available  memory  address  after  the  "orpiler. 
dedify  the  C?/>'  utility  E'J^P  as  follows:  after  toe  lavel 
change  the  argument  of  the  LXI  a  from  0  tc  t  he 
starting  address  of  the  symbol  table!  after  the  label  11^?, 
delete  tne  J.!Z  NCf.'UiV  instruction.  P=r.are,  "easserble  arc. 
reload  the  program.  The  SYMTJV?  program  is  n.^w  ready  tc  be 
used  or.  the  .  SYM  file  produced  by  the  compiler: 


A>3Yr/DTTt'P  ??htrr0Ah  .SYh 


ST^DUM?  produces  a  vertical  listing  oi  tne  syrbcl  table, 
ore  byte  oer  line*  eac^  byte  is  orr;»oeded  by  its  addr^s^  in 
the  symbol  table. 


7p 


A.  r/CT!fLiRITA7IC.'J 

The  r I / v  version  of  the  NP5-FA5CAI  •'•rrpi  ler  -rent a  iced 
over  i? c?  lines  of  source  cede.  Veer  tr.e  "crpiler  was 
transferred  to  the  Intel  Mcrotr ocessor  Tevelcrrer.t  system 
(VTS)  and  the  ISIS  —I  I  opera'inr  sys  *  em ,  i*  was  broker,  u: 
into  ran  area  hie  nodules  according  to  function,  ran'-'  module 
now  n.as  fewer  than  If  CP  lines  of  code,  sc  editing  is 
facilitated,  and  corrections  to  the  cc -oiler  ~a"  he 
implemented  much  .Tore  rapidly.  7h°  two  la-ges*  "ndules  take 
less  than  15  minutes  each  to  recornile.  A  recompiled  to  i  u  le 
car.  then  he  linked  with  the  remaining  modules.  .vai  r.  t  a  ini  nr 
the  compiler  as  a  single,  large  file  would  nave  "ausei 
excessively  long  eait  sessions,  end  a  recornile  tire  of  over 
an  hour. 

There  are  sever  modules,  =  ao-.  in  a  separate  IS  I S  —  1 1 
format  file.  SYSRTS.SRC  contains  the  interface  to  the  Cr/V 
operating  system,  including  tr.e  Usk;  and  consol® 
input-output  procedures,  and  the  SYTCEA?  procedure.  SCAM.3FC 
contains  the  input  scanner.  PARSE?. SPC  oor. tains  the  career 
and  its  supporting  procedures,  and  Tost  of  t h-  global 
variables.  TABLES. 5PC  contains  the  built-in  symbol  table  ar.d 
the  parse  tables.  SYMBOL. SRC  consists  of  procedures  wnich 
manipulate  the  symbol  table,  either  writing  into  or  reading 
fro*  individual  entries.  5YMTF1.SRC  contains  the  code 


c  f  the  prc-iur  tier,  case  staterer.  t .  Scur-'e  listings  ' :  tr.e 
modules  are  provided  following  t  he  appendices  . 

yniularizi"g  tr.e  compiler  introduced  t  r.e  r  I  •-  y'-iZ 
compile^  directives  PUBLIC  ar.d  EaUZ-NAL.  1  r.y  v=riavle. 
function  or  procedure  which  is  declared  in  cr.°  r-cdul=,  an: 
referenced,  in  ar.cth°rt  rust  he  declared  PUBLIC  in  t e  first, 
a  r. d  ZXTE?  \ A L  i r.  t r  a  second.  Functions  and  c r  c  c e i  u  r  =  e  w  i  c h 
have  arguments  rust  have  these  arguments  in  botn 
dec  la  re  t ions ,  also. 

The  X?FF  switch  of  the  ?L/w-Z-£  compiler  causes  a 
cross-ref  e:°r  ce  to  b?  appended  to  the  source  listing.  The 
cross-reference  contains  each  source  p r  eg  ram  id  =  r.  tifier 
(literal,  constant,  variable,  function  or  procedure)  vhi'h. 
occurs  in  the  program,  along  with  the  line  number  of  its 
defining  occurrence,  the  line  numbers  of  any  referee ~  es  to 
it,  and  whether  it  is  declared  ?TTBLIC  or  1 7  U  Z ? N  A  L .  This 
cross  reference  is  a  very  useful  tool  for  locating 
identifiers. 

The  IX^ZF  switch  of  the  PL/v"-8?  compiler  causes  a 
temporary  file  with  an  .1X1  extension  to  be  created,  which 
contains  information  about  each  PUBLIC  ar.d  FXTIP.NA  L 
declaration  in  the  source  program.  Thes°  .1111  files,  one  for 
each  source  module,  are  later  collected  and  consolidated  by 
the  IX^F7  program,  which  produces  an  in  ter -module  cress 
reference  listing.  This  listing  contains  all  PUBLIC  and 
ZXTFFNA  L  identifiers,  and  nares  the  module  in  which  tr.e 
‘.d^tifier  was  declared  PUBLIC,  and  lists  all  -cdules  wh  i  :h. 


A 


i  i  s : 


c  ~ 


rake  an  TXTTPM » L  reference  to  it.  "his 
useful  during  debugging. 


3.  LINKING  .AMD  LOCATING 


The  compiler, 

r.  ow 

s  epa 

rat 

O  * 

ir.  t 

r  od  uies  . 

r'US  t 

e 

recombined  to 

form 

a 

body 

of 

0  T  9 

cut 

abl 

9  C  r  -  9  . 

This 

i  s 

accompl ished 

hy 

the 

LINK 

and 

LO 

CAT 

V 

pr orra~s  . 

.  n  -  i.  i 

program  adds 

code 

f  rcrni 

eacr.  o 

t  he 

r  o 

i’j  I 

9  s  9  r.  1  i 

i  ora ri 

es 

n  o  ^  o  p  a  r  r  b:  ^  1 

ir.  ear 

ly. 

tc  f  0 

r  pt 

0 

sir. 

~  1  9 

file.  Tr. 

=  LOT  A 

-T 

urogram  locates  tne  cole  ac  a  particular  address  ir  memory 
and  adjusts  all  of  the  relocatable  addresses  into  absolute 
addresses . 


c.  t-an5~t?.  isis-i:  tc  c?/v 

Cr.ce  the  complete  compiler  has  beer.  loca'eo  arc. 
adjusted,  it  needs  to  be  trarsfered  from  tne  I S I S  —  1 1  based 
syste~  where  the  FL/v-£3  compiler  resioes  to  a  C?,'v  fcasec 
system  'or  execution.  Tr.  is  is  done  with  ?R0KI3I3  .  COP .  an 
undocumented  program  which  runs  under  C?/k  and  reads  a  file 
from  an  ISIS-II  format  disk  or.  t.c  a  C  ?/K  format  disk.  The 
compiler  is  then  processed  by  the  undocumented  procram 
0?  JCPt'.COy ,  which  strips  off  any  symbol  table  information, 
adds  a  instruction  to  the  entry  point  to  the  beginning 
of  the  compiler,  and  creates  the  executable  form  of  tne 
compiler.  The  symbol  table  information  is  placed  ir.  separate 
files  with  .S'fl*  and  .LIN  extensions.  These  files  can  b® 
deleted  if  empty  or  not  used,  r r  tney  car.  be  save;;  for  use 
with  th c  debugging  tool  SIl. 


i  ■  -  i  .  j  ,• . 

'•hen  invoking  N  ~  S  A  s'?1.!  or.  c  ?  AS  CAL  prvr^r  ,  * -.a 

corn:  ler  is  treated  as  ar.y  other  crc^ram  ur. d  e  r  C ?  -  *•  .  Along 
with  the  file  care  cf  tr.e  PASCAL  orcrrer  to  he  ''ompilei , 


ep  t  s 

up  to  f 

our  swi  t  c'-es  w h  id 

^duse  it 

♦  ^ 

n  i  o  1 8 

t n.e  PASCA 

D  source  roue,  the 

d  r  c  J  u  ~  * 

1  or. 

t  c  <  0  n 

numbers , 

Z  (3  V  C,  O  ht 

to  surpr 

r  S  S 

orea:,  icr.  cf  the  intermediate  file. 

The  facilities  of  SIT,  toe  CP/Y  '/"'soli:  Instruct!  cr 
Debugger,  permit  run-time  debugging  ar.  u  exccuticr.  tredr.g  cf 
the  compiler.  To  use  SID,  it  is  -ec~ssery  to  ire 1-de  toe 
?L/V-P?  corpiler  ESP  DC-  switch  when  compiling  the  rcdule  of 
iT,tcrest.  The  EZBUC-  switch  causes  tr.e  ?LV— 8C  oo""rilcr  to 
induce  identifier  and  line-n.unber  locations  wit.o  the  file. 
This  information  is  later  strioped  out  by  the  OPJCPdfd 
program  into  the  PASCAL. STY  and  PASCAL. LIT  files.  ~hese 
files  are  loaded  by  SID  and  used  to  reference  and  identify 
absolute  rra  chi  n.e  addresses  by  symbolic  expressions. 
Effective  debug6ir.g  of  tn?  compiler  requires  a  iatailei 
knowledge  cf  the  operation  of  SID  as  docurrented  in  tr.e  SIC 
Users  Yar.ua  1 .  In  transferring  the  oonpiler  fror  PL/Y  to 
PL/Y-S3,  it  was  necessary  to  shorter,  some  of  the  identifier 
names  to  less  than  IP  characters  to  meet  the  recui reman ts  of 


In  order  to  ascertain  the  proper  operation  cf  the 
compiler,  it  is  also  necessary  to  have  accurate  knowledge  cf 
the  PASCAL  language.  To  ensure  testing  the  compiler  witr. 


r 


-?LT£2 

:  71 

: 3Y  SR  TS . S~ C 

X777 

I  XR  F7 

DAT;  (2  r 

Xs  R 

£3) 

7  r*  n 

-?Lvf f 

:  71 

sT A 7LTS  .SRC 

x=si 

I  T5?J 

EAT:  '27 

v  a 

£2) 

ISHC- 

-?LV£C 

:  71 

:?A?S  TB.SPC 

XR  F? 

I  XR 

CAT"(?5 

v'it 

37) 

DTRl'J 

-pl^sy 

:  71 

: SC  AN. SRC  XR 

27  I 

;CF.T7  DA 

TF(29  X A 

F.  c 

3  'i  £ 

T“UG 

-pL^p^ 

:  71 

:SYw:rL.SpC 

XREi 

1 XR 2  F 

I A  T  7  (  2  9 

^  is  p 

) 

TER  UC 

-?Lh?r 

:71 

:SY.'iTEl.b7C 

XRF  ? 

IXPE? 

DAT?  ( ?? 

i \  A  R 

37) 

1 7  3  V  S 

-Fire  3 

:  71 

:  S  Y.NTH2 .  SFC 

XK77 

IXR77 

EATr  '29 

ft  A  R 

63) 

IF -US 

Due  to  space  1  i  r~  i  tati  ons  on  a  single  disk,  it  ray  3° 
necessary  to  copy  the  .LST  files  to  another  disk  as  tr.°y  are 
s-enerated,  or  to  redirect  tne  .LST  file  to  the  :  7? :  disk 
with  the  P°PJT  switch^ 


-PtKS3  :F1  sSYYTFl.SFC  XFE?  1X3 FT  EF3!T-  PRINT'  :F1:SYNTH1.LST) 


2  y  *  +  r>  a  i  a:  '-*  t%  ~  <p  « 

~  •  -  *  r-  -  •*  -  -  -  *-  •  -  *■*  ■  •-  -  ^  ^  -  1  ^  - 


M  ^  ^  P  • 


A  printed  ~  e  p  7  of  the  i  r.t  er-rodu  i 13  cross  rcfere"'e  is  v c  r  7 
useful  during  debu6Linf'. 

4.  3UPYIT  file  has  beer  cr5ataa  to  facilitate  the 
LIMKir.j?  and  LOCATir.r  process.  If  a  different  L:*'<rirwr  or 
IOC*.  Tin  f*  cor.rrand  strict  is  a® si  red ,  it  "an,  of  "curse,  be 
entered  tv  hand.  To  invoke  the  prepared  file: 

-STT2YIT  :?1: PASCAL 


The  file  :  Fl : PASCAL.  C ST  use!  by  the  ?UrvIT  co' 
the  fallow  if  7  corrrard  lines: 


■  c  r.  t  a  :  n  s 


-IF IETF  :  Fl rPASCAL.LFK, :Fl : PASCAL 


-LI'IF  :J1  :TA"LFS  .03J,  :  Fl  ;5rS?TS  .OPT,  :  -1 :  SYV  3C  L  .CP  Z  ,  % 

:  Fl  tSY'JTHl  .TEJ,  :  Fl :  SYK7E2.0BJ,  :F1  : PAHSF" .OPT ,  :T1  :  TP.If.’T  .0?  J  ,  ?. 
••^l  :SC*N  .CPJ,  :7?:Pir'e3.LIE  TO  :?1 : PASCAL. L'K  MAP 
-LOCATE  :71  tPASCAL.LNK  COEK133P)  KA ? 


itecution  of  these  lines  will  create  tee  files 
:F1:PASC*L.LNK  ard  :FlsPASCAL. 


Leaving  tne 

ISIS-II  disk 

cor.  tain ii>- 

the  NFS -PA? 

CAL 

co^niler  in  drive 

1,  insert  and 

boot  a  CP/N  d 

iSK  in  drive 

o  • 

The  C?/y  disk  r 

vj  st  contain. 

aror.f  ether 

prosrarrs  , 

r  n  e 

pr  o^ra^s  FPnihlS  I S  .  Cnf- ,  OEJCPM.coi*.  <?rd  SID.COfn.  Transfer  the 
*1  PS -FAS  CAL  compiler  f  rox  the  IS  I S—  1 1  ciSK  to  the  CP/  >  disk: 


I 


A  >  C  v  T  5  T 5  PASCAL 

Break  out  the  . c  7  v  anc  .LI.',  f  i  1  e «  a  r.a 
instruction.  to  locations  ICC” ,  1 2  iv  ,  a  r:  1  : 

At-CrCCPh'  PASCAL 


^  This  cornea nd 

will  cr°ate  tnree 

files  fro-  tne 

?  :  S  Z  i  L  f 

i  1  3 : 

PASCAL  .cc,v , 

t  ne  executable 

compiler. 

?  •  S  C  A  L  .  S  ”  v 

a  r.c 

PASCAL.  LIN  , 

the  files  contai^in^  symbol  tab 

1 e  infer "a 

t  i  o  n 

1  .  for  the  run-time  uebuf-ger 

Sir.CCv.  •‘•hen 

aebucr  i  r.e 

w  i  t  h 

S  I C  .  CCiv ,  it 

is  useful  to  nave 

printed  ~  o  o  i  e  s 

of  the  .5 'r v 

and 

.CCV  files. 

The  file  PASCAL 

(with  no  ex  t e 

r.  s  i  o  r. )  c  e  n 

be 

i  o  1  e  t  e  1 . 
Creaf 


PASCAL  source  pro^ran,  for  exarple  CIST. -AS, 


with  an  available  text  editor.  Invoke  the  ,J?S-PASCSL 
ccnpiler: 

AV‘SC*L  TTST.PA.S 

Up  t.  c  four  switches  Pay  be  provided  to  the  N??-?A?0AL 
co-oiler  through  tr.e  CP/K  pares  field  immeuia  tely  following 
the  file  specification: 

A  >PA  SCAL  TPS?  .PAS  SA^CE 


O')  Ui 


e  svi  *  ~r.es  ray  c:raar  i r.  a-.;.'  r  i  a  ~  arc  rave  t-.e  :  ~  1 1 r  •  i  r.=r 

A  -  List  the  source  p  r  c  *  r  a  r  s  liras. 

P  -  List  the  production  numbers. 

C  -  Suppress  creation  cf  the  i r t ?rraii a  t<=>  fil=. 

I  -  List  the  token  nurcers. 


To  i r. v o > e  the  r u r. - 1 i "■  e  i ° o u .% -- e r  SIT  .30*: 


A  >F  1 1  PASCAL.  nry  ?A?C  *  L  .  S  Yi“- 
ID  VppS  1.4 
YiMOLS 

M  EXT  PC  PM 
e^CC  fl 27'  CC7P 
»:*  Pascal. i ri 
“? 

ur  t^ST.PAS  $  A  3  C  D 


Then  set  up  pass  points,  etc.  ani  iebu<a  as  racers  ary.  rrr 
aetailed  instructions  in  the  use  of  Sir.CCf-,  the  run-tire 
debugger,  see  Pef .  15. 


C/1  C/J  *  /)  0  1  ’vi  'J'i  c/1  L/i  '/I  C/1  ^/1 


-  <; 


3  P  P  F  N 1 1 X  F  —  E  i  s  .<  I  i  r c 


The  v? 5 -PASCAL  ^ortii  ler  is  store!  cr.  two  I. 
i  sA  s  with  directories  as  follows. 


r  or-e 


The  score3  files. 


files  are 

or.  t h 

e  first 

DI?FCTC°Y  C 

F  :  FI 

: DEBTS 

NANI  .  FXT 

BLKS 

LENGTH 

Copy 

6c 

c04? 

T  IP 

ct  C. 

5733 

THIN  T  .  OH  J 

c 

70 

ST*,  N  .SRC 

S3 

10343 

SYSPTS.IXI 

c 

549 

S YSRTS  .OR J 

4c 

53^4 

SYMBOL. SBC 

?41 

77717 

SCAN  .0” J 

61 

3633 

"Y'JT?2  .SRC 

40  k, 

5?2*7 

PAPS’?.  .OR J 

he 

6  568 

COWPC.S-C 

.3? 

457'7 

' YM  T3!  .SRC 

44  c 

56936 

S  Y’-iT’l  .CRJ 

164 

23570 

Q  AT3T 

136 

16618 

CARL’S  .0? J 

c  c 

4C4’7 

PASCAL. CSD 

c 

227 

PARS  F’3  .1X1 

15 

1742 

c  v-cppc 

69 

11123 

SYNTF1 . IXI 

17 

198? 

PASCAL.  LNK 

4c  2 

62356 

PASCAL 

3c  t 

47692 

SYNTH?  .1X1 

16 

1637 

SYN^OL.OPJ 

87 

128*4 

pticvp.c^c 

112 

13996 

7  A  R  L  F  S  .SRC 

79 

9804 

SCAN*"  .1X1 

261 

TAELES .1X1 

136 

SYMBOL. IXI 

11 

1264 

L 


7 ~ -  ca^csi 

1  1  5  ;C  " 

OE  s  i  s  t  s, 

sole! y  cf  listir.,-  :"i  !•='  .  -  -  5  *  ‘ 

their  lert0  sis 

a  j 

tippct^y  r 

7  :  J 1  : 

LIST  IN 

N 1  N.  p  .*:•:? 

MK3 

LFN3TH 

3  y  5  ?.  r  s .  L  s : 

2*i  o 

2  0771 

SCAN  .1ST 

197 

246  92 

TA.^LFS  .  L3  T 

ire 

157-4 

Pi*. 0 S F?  .1ST 

23c 

29*22 

3  YNT51 .1°? 

U23 

129720 

S7NTF2  ,L3T 

911 

114563 

3  YV12^L  .L3T 

542 

69277 

IVCR  .1ST 

99 

1226c 

CC.NVET.LST 

DO 

9364 

The  IS  IS— 1 1 

system  iis*  ' 

used  during  the  d=velcp-ert  of 

f.9  NPS-PA.SC  s  L 

com pi  1 

®r  contains  the  Sol  l0'*ir.<?:  1 

l 

T  IP  PC TOP Y  0 

7  :7C : 

ISIS 

1 

1 

A’ AM  .7XT 

ELKS 

LZMGTc 

ATTP 

TP? 

12c 

16951 

1/ 

TP  I  N’T  .OPJ 

a 

70 

A 

COPY 

C  C 

£  (242 

V 

a  s  x  ? r  ? 

7  c; 
c_  ^ 

4233 

A 

ATT?.  I- 

22 

4622 

ft 

?  I M  C  Z  J 

29 

3299 

V 

CTLFTT 

2? 

4526 

ft 

T  P 

*6 

3  ^  3  o 

A 

put 

5e 

£9s9 

.V 

70P VAT 

49 

60  a? 

»  i 

FPXO^J 

35 

4221 

A 

i  r  i  s  x 

5C 

62c3 

v 

LIP 

92 

10227 

A 

LINK 

114 

14299 

a 

LOCATE 

1  tit 

12565 

OBJFIX 

27 

3  254 

* 

°PNAN  r 

21 

2450 

A 

SUBMIT 

3-f 

462? 

¥ 

pt,K90 

172 

21635 

W 

TY?i 

5 

4&c 

¥ 

1 7PI? 

82 

10216 

V 

PL  I*  90  .LI3 

45 

5615 

ft 

PLMEO  .070 

152 

19731 

¥ 

^LY'Fic  .0V1 

232 

29122 

;; 

PLNBO  .07? 

6c 

8156 

w 

PLM?  .073 

199 

22796 

'ft 

plmeo  .ov4 

72 

9922 

¥ 

S  YSTVN;  .LIB 

24 

2946 

¥ 

LINK  .OVL 

2» 

2491 

It 

30 

_ A - — 

SYS? 


*0-0: 


(S? )  TITLT(  '5YSRTS  -  5Y?TIV  SUPPORT  ?CD7I.«FS  '  ; 
SYSSRCUTIMES :DC? 

/-  CPU  INTERFACE  ROUTINES  */ 


IT  f' 


LA  P  5! 


LIT  LITERALLY  'LITERALLY  ' , 
EXT  LIT  'EXTERNAL', 

CR  LIT  '13', 

LE  LIT  '0A?', 

LCL  LIT  'DECLARE', 

PP.CC  LIT  '  PRC  CEDUPE  '  , 

TRUE  LIT  '1', 

ADDS  LIT  'ADDRESS', 

FALSE  LIT  '?', 

EILEEOE  LIT  'l', 

FOREVER  LIT  'WHILE  TRUE'; 


DCL 

EOLC^AR.  LIT  '0DH '  ,  /#  END  OE  SOrPCE  LINE  CHARACTER 

*/ 

^A  5  LI'7’  'CQ17 ' 

SCUPCERECSIZe’lIT  '123',  /*  STZr  CE  SOURCE  TILT 
RECORD  * / 

IN  TR ECS  I ZE  LIT  '128',  /*  INTERMEDIATE  FILE  RECORD 

SIZE  */ 

CC«JUFFSIZE  LIT  '52',  /*  SIZE  OF  CONSOLE  FUTFE°  */ 
rGE?ILLFE  LIT  '  1 A  H  ' ;  /*  C-*?  FCR  LAST  PECCRE  CM  F I  L 


v/ 

/  *  *  *  « s;s  si:  *  if  *  *  s’,:  sis  if.  ^  si:  if  if  if  it  if  it  if  if  if  it  if  s*  if  it  t,t  it  if  it  s^sjc  sits;:  S: .;t  5;:  >;.•  it  ~ :  if j;:  s’.:  / 

/*#*  GLOBAL  VARIABLES  ***/ 

/  if  sis  it  s;s  it  it  Sis  Si:  s;c  if  s|s  si:  si:  it  *  s£ s£  s;: sis  si:  s£ *  s^s£  if  it  if  if  it  sis  s;:  sj:  s^  s^  s;c  sis  s*  s£  if  it  s*  it  s;s  if  s;s  sj:  s;:  s|:  sis  if  if  s;:  sit  tf  s’,:  / 

LCL 

/*  COMPILER  TOO-GLSS  */ 


LIST^SOURCE  BYTE  EXT, 
NOINTEILE  BYTE  EXT, 

/*  EXT  VARIABLES  */ 


PRODUCTION  BYTE  EXT, 

TOKEN  EYTE  EXT, 

AC CUM (32  )  BYTE  EXT, 

NEXTCHAR  BYTE  EXT, 

LA ST$SETEL$I D  A.LLR  EXT, 

/*  COUNTERS  */ 

EOEC  LITERALLY  '25',/-  EOF  */ 

PARMS  ADLR  PUBLIC  I N IT  I AL (6D E ) , 

EBB OR  COUNT  ATDR  PUBLIC  INITIALS), 
CODES IZE  ALDP  PUBLIC  INITIALO). 

DEC  I (4)  ADLR  IN ITIAL (1000 , 100 , 10 , 1 ) ; 


SI 


.  »ic  -n  ->V  'I 


w 


'  •*  *1 


*  SYSTEM  DEPENDENT  ROUTINES  ‘.N’T  V*  HI  ARLES  * 

*  THE  ?OLLO*IMw  ROUTINES  ARE  ’’3  IE  BY  T  RE  COMPILE?  :;: 

*  TO  ACCESS  DISK  FILES  ANE  T*E  CONSOLE.  TEESE  :: 

*  ROUTINES  ASSUME  TEE  USE  OF  THE  C?/v  OPERATING  * 

*  SYSTEM  .  * 

.V 

v  *»* 

-  TEE  ECE'S  ARE  USED  BY  TEE  SYSTEM  TO  MAINTAIN  * 

*  INFORMATION  ON  OPEN  FILES.  THEY  ARE  ONLY  USE E  BY  * 

*  PROCEDURES  IN  TEI3  SECTION.  TyE  BUFFERS  AM  POINTERS  - 

*  TO  TEE  EUFFERS  ARE  USEE  BY  TRE  RE^A INTER  OF  THE  * 

*  PROGRAM. ,  BUT  TFEIR  SIZE  MAYBE  VARIED  TO  SUIT  TrE  LIS7  * 

*  OPERATING  SYSTEM  BEING  USED.  * 

j«  •» 


#  *  #  *  #  *  *  #  #  *:  #  #  *  jj! #  *  *  s 


*  v  'i'  V  V  n*  V  v  V  V  *!»  5f*  »|»  v  !|(  i,£  »,£  5,1  5J1 


*/  DC  L 

/*  NOTE:  CP/M  PROVIDES  5CE  AS  FCE  AREA  AND  S0E  AS  A 
BUFFER  FOP. 

PROGRAM!  USE  */ 

RFCBADDR  ADDR  IN  IT IAL( 5C E) , 

PFCV  BASED  RFCBADDR (33 )  BYTE,  /*  SOURCE  ECB  */ 
V7C2(?3)  EYTE  /*  INTERMEDIATE  FILE  FCE  */ 

INITIAL  (0/  'PIN' , 0,0,0, 0;  , 

S ECB ( 33 )  BYTE  /*  SYMBOL  TABLE  FILE  FOB  */ 

INITIAL  (0,  '  ',  'STM',e,S,£,e'-  , 
SRLOC  ADDR  INITIAL(80E)  , 

SOURCEBUFF  RASED  S  BLOC  (  SOTJR  C  ER  EC  S  I  ZE  )  BYTE.  /* 
SOURCE  BUFFER  */ 


SOURCFPTR  BYTE  INITIAL  ( SOURCE^ECS I Z E '  ,  /*  BUFFER 

INDEX  */ 

DISKOUTBUFFf INTRECS IZE)  BYTE, 

SYMCUT3U??( INTRECSIZE  )  BYTE, 

B’JEFPTR  BYTE  I N  IT  I A  L  ( 2  5  5  )  ,  /*  BUFFER  INDEX  */ 
SYMEUFFPTR  EYTE  INITIAL (255 )  ,  /*  SBTBL  BUFFER  INDEX 

V 

L INF3UFF( CONBUFFS IZF )  BYTE,  /* CONS  OLE  OUT  BUFFER  #/ 
LINERTR  £YmE  I N I T I  A  L ( 0  )  ,  /*  BUFFER  INDEX  */ 

BDOS  ADLR  PUBLIC  IN  IT IA L  ( 5H  )  ,  /*JMP  TO  C/S  FHTEY*/ 
BOOT  ADDR  INITIAL(0H),  /^REBOOT  ENTRY*/ 

LINENO  ADDR,  /*  CURRENT  LINE  NUMBER  */ 

STAR TBDOS  ADDR  PUBLIC  IN  ITIAL  (  6H  )  ?  /*P'T’R  TO  START  0? 

BEOS*/ 


/#**  C-LOEALPPOCE  CURES  ***/ 

^  V  '1*  V  v  Jjt  V  '1^  ^  W  W  ^  V  ^1*  V  ^  V  v  ^  n«  ^  ^  ^  ^  *i*  ^  ^1*  •!*  31*  v^I*  *1*  J|»  >!•  v  v  v  v^r  •»»  v  ijs  sj£  J 


MOVE:  PBOC  (SOURCE, DESIIN.L)  PUBLIC! 

/*vOVES  FM  SOURCE  TO  LEST  IN  FOR  L  BYTES  */ 

DCL  (SOURCE, DESTIN)  ADD?,  /*  L  <  25?  BYTES  */ 
(SCRAP.  5ASED  SOURCE,  DC  EAR  BASED  DESTIN, L)  BYTE! 


9? 


rr  p'TT  f  L :  =L  -  <>  2 55  ; 

i  C?iP=oCHAF. ; 

Er5T:\'=rE5Tiv  *  i; 

S0URCE=S01RCE  +  1? 

end: 

TNT  vOVE ; 

FILL:  DROC  f A ,CEAR  ,  N  )  PUBLIC!  /*  VCVE  CFA?.  TC  *  '!  TIV 
DCL  A  ACER , ( CHAP ,  N  ,EE5T  3ASFE  A)  3YmE5 
Eo  VHILE  (S  :=  N  -1)  <>  255? 

DIRT  =  char; 
a  =  a  -  i ; 
z\'D ; 

f  n  r  fill; 

/*  VGN  I  TCP  ROUTINES  ■■  / 

V0N1 :PROC (FUNC, INFO)  FIT  5 
LCL  FUN C  B  YTE  , 

INFO  ADDR; 

END  roNi; 

M0N2 : PROC f FUN  C , IN FC )  BYTE  EXT; 

ECL  FUN C  BYTE  , 

info  a  lor; 

ENT  MCN  2  J 

1^0:43 :  PP.CC  PUBLIC? 

call  foot; 

END  UCN 3 ; 

/*  I/O  ROUTINES  */ 

P3  I  N ?  C  H  A F  :?ROC(F)  PUBLIC; 

/*S  ZNI  THE  ASCII  CHARACTER  r  TO  THE  CONSOLE 
DCL  3  ’J Y T ^ ; 

CALL  V0N1 (2,?)J 
ENE  ppintcear; 

P? I  NT : ?°0C (A  )  PU3LIC; 

/*  ?*INT  THE  BUFFER  STARTING  AT  AEDP.FSS  A  UNTIL 
rcL  a  a  ter; 

CALL  KOMI (9,4); 

FND  print; 

READ  :PRCC (A  )  PUBLIC? 

/*  PEAD  CONSOLE  CHAR'S  INTO  BUFFER  A  */ 

ECL  A  ADD?; 

CALL  VON  1  fie, A) ; 

FND  read: 

CPLF :?ROC  PIPLICJ 

/*  S  END  CARRI AC-F-R ETURN -LINE- FEED  TO  THE  CONSOLE 
CALL  PRINTCFAR(CP); 


'Ji'T 


I 


"EEC:  PRC C 1  VALUE ' 

«Tt  ■»“▼»/**• 

r  u  :  u  i 1  ■  ♦ 

ECL  E ALU”  A DIR,  T 

-QVfr-  ~  ft’ 

ECL  FLAG  PETE; 

r lag  =  false; 

EO  I  =  0  TO  2! 

COUNT  =  ? of; 

DC  WHILE  VALUE 

>=  EEC  1(1); 

V A L rT F  =  VALUE  -  E 7 C I  { I  ;  J 

fl»c=  trie; 

COUNT  =  COUNT  *  i; 

fne; 

I?  FLAG  OR  (I>=  3)  TEEN 
C 1  LL  PEI  NTCF  AP.  (  COUNT  ) : 

ELS  F 

CALL  PFINTCEAR ( '  '); 

END  : 

EME  P? I NIDEC » 

PRINT ATOKE?;  :PROC  PUBLIC; 

CALL  p?rJT(  .  (  '  TOE  IN  =  $'))  J 
CALL  ?F  iNTdEC  (  TOEEN)  J 
CALL  p?.  If!?(  .  (  '  $  ' '  )  ; 

END  ?PINT$?CZEK 

pp INT^RROE :  ?-OC  PUBLIC? 

CALL  c  R  I N  ?  (  .  (  '  PP.CL  =  $  'x  ); 

CALL  P?  I ‘! ?  EC  (  PRODUCT  I CN  ) ; 

CALL  ?PINT(.  (  '  %')); 

END  FR I  NT  $ PR OF • 

PF I  NT  $  E?  POP :  ?pOC  PUBLIC J 
CALL  cplf; 

CALL  CR  I.NTEEC  ( ERRCRCOUNT  )  ; 

CALL  P?  IN T  ( .  (  EFEOP(S)  DETEC  TED  ",  CR  ,  L  ?  ,  '  $>  ' )  ) » 
END  P? I NT$Z?r  OR  5 

ERROR :?ROC ( ERRCOIS )  PUELIC  ; 

DCL  EFP.COD^  1 DD?  , 

i  pytf; 


F  RRORC  CUN  T  =E  R  ROR  C  CUN  T 
CALL  crlf: 

CALL  P°  I  NT  ( .  (  $')) 

CALL  73 R  I N T AC E C  (  L T N E N 0  ) 
CALL  Pc  IN  T  ( .  (  '  Z  -  F.  C  0  5 
CALL  ??  INTCFA  R  (  FIC  H  (  Z? 
CALL  °R  IMTCRA a( LrV  '  ERR 
C 4  LL  PF  IN T (  .  (  '  :.F»?  '  ' 
rr.  :=i  t^  .» ecu''  1  ; 

1  k  T  I  SR**!?--*.''*' 

•nt: 


i ; 


/ ' ; 


AD-A083  0*2  NAVAL  POSTGRADUATE  SCHOOL  NONTCACY  CA  ft%  */* 

NPS-PASCAL.  A  MICROCOMPUTER -OASCD  IMPLEMENTATION  OP  T»C  PASCAL  — ETCtU) 
MARIO  KS  TTNZUS 

UNCLASSIFIED  NL 


£»LL  ?3T?;t(  .  (  CR.L?,  '  AT  ~?.RCF.  S') 

£  a  tt  ??  I  ntstoein ; 

CALL  prints? rod; 

IT  TOKEN  =EC  7C  THEN 
do; 

CALL  PRINTSERROR; 

CALL  mcn3; 

end; 

smd  error; 


DISK ERR :?RCC? 

CALL  EBP.OR(  'El')? 
CALL  "ON?: 

END  D IS  KERR  » 


OREN^S^C  £?ILF :  PROC  PURLICJ 

CALL  V0V2( . ( 'PAS  '1 ,HICIAICR+P.2) J 
F'A’CR  ( 3? )  ,P*CMl2)  =  f>; 

M0N2(15,?FCB*DDR)  =  255  T R E N 

ro; 

CALL  ERPC?  (  'NS'  )  ,* 

C»LL  n>ON3; 

end; 

end  c?en$spc$?ile; 


READiSRC*FILE  :PROC  BYTE  > 

DCL  DCNT  eytz; 

I?  (DCNT:=MC.N2(2?  .R^CBADDR )  )  >  ?ILFrCF  DEEM 
CALL  DISKERP; 

RETURN  ECNT: 

END  READS  SRC $FILE; 

sftup^intsfiljprcc  fu^lic; 

IF  NO  IN  TFILE  THEN  /*CMLY  MAKE  FILE  IF  TCGCLE  nj7#/ 
RETURN ; 

CALL  MOVF(.RFC3,.VFCB.9) I 
CALL  MON  1 (19,  .WECE  ) ; 

IF  MCN2 (22 , . WFC3) =255  THEN 
CALL  DISKERF.; 

/*  SET  IIP  SYMBOL  TABLE  FILE  */ 

CALL  M.OVE(  .PFCR,  .SFC3,9)I 
SFCR (32 ) =0  j 
WFCE (32)  =  0; 

CALL  MON  1(19, .SFC3); 

IF  M0N2(22,  .SFC'C)=255  TEEN 

call  diskerr; 

END  SETU?$INT$FIL» 

VRIT5IMT4TIEE:PR0C  PUBLICS 
IF  NCINTFILE  then 
RETURN ; 

CALL  MON1 (26 , . DISKOUTFUFE  ) » 

IF  MOM 2 (21 , . WICB ) K>0  THEN 
CALL  DISKERPI 


95 


I 


) 

I 


CALL  yCNl(?e,3?H);  /*  FE3EI  TU  A  A  ZEF  -/ 

7  NT  V?:T<I\Ti?ILi; 

SVIT :  PPOCfOrJCCIS)  PUBLIC? 

ECL  OBJCCDT  BYTE? 

IT  (BUFFET?  :=  BUEEPT? +1  '  >=  INTRICSIZE  Tr  EM 
/-WHITE  TO  USX*/ 

EO? 

CALL  *RIT$I  MtFILE  ? 

EUFFFTH=e? 

END? 

E I SKOUTBUTF ( PUFF  ?TF ) =GB JCCDE  ? 

E.VE  I*1!?? 


G^F  ATF:??.CC  (CBJCCEF)  PUBLIC? 
ECL  OBJCOEF  BYTE? 

CODES  IZS=COEESIZZ  +  l ? 

CALL  PM  I T ( OB J  CCEE ) ? 

ENT  GENERATE? 


G5NSAEER  :PROC(A,r)  PUBLIC? 

DCL  A  BYTE,  B  AEEF  ? 

CALL  GENERATE (A )  > 

CALL  OEM SPATE (LOW ( E ) ) ? 

CALL  GENERATE (HIGH ( 3  )  )  ? 

END  GEN^AED?? 

WPITiSTi“SriLE:  PPOC  CUBLIC: 

IE  MCIMTEILF  THIN 
RETURN? 

CALL  vON 1(25,  .  SYWCUTEUFF  '  ? 

IE  PON2(21,.S?C3)O0  THEM 
CALL  EISKERP.  ? 

CALL  *ONl (2€,£0E)?  /*RESt’T  UK  A  AEEF-  / 
END  WFIT<SYY$TILZ? 


GENSSYMTBLiPROC (OPJCODE)  PUBLIC? 

ECL  OEJCOIE  BYTE? 

IT  (s Y^BUFFPTF.:  =STMBlTFFFTP+l  )>=  INTRICSIZE  THEM 
/*>. 3  I TE  TO  DISK-/ 

EO? 

call  vrit$sy.v.aeile; 

S  YMBIJ?EPTR=<J» 

EME  ? 

SY^OUTBUEF(SYK3Ui:'?PTR)=OBJCCDE; 

END  GENiSYUTBL? 

MCVESSITBLsPROC  PUBLIC? 

DCL  SYKPTR  A DDR? 

DCL  VALUE  BASED  SYMPTB  EYTE  ? 

EC  SYKPTR=. MEMORY  TO  ( LAST$SETEL$  IE  -  1)? 

CALL  GEN  SYI“!TBL(  VALUE  )  ? 

END? 

CALL  CENSYMTEL ( £ ) ? 
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CALL 

CALL 

CALL 

CALL 


GIN  cyvi^pr  (  £  )  ; 

s^NsY^TBue;; 
GEN5YUTBL (  Z  )  ! 
C-ZNSY^TBLUCFFILLZR ' 


C»LL  GENSY'-ITBLUCFFILLZ? 
CALL  V<R  I  TiSYI^FI  LF  » 

END  A'OVESSE'I’BL! 


CLCSEMNTA7IL:  PP.OC  PUBLIC! 

/-CLOSE  INT  COLE  FILE  AND  SYU  TABLE  TI LE-/ 
IF  NCINTFILE  THE'; 

RETURN! 

IF  U0N2(1?  ,.VFC5'=255  THEN 
CALL  r IS  KERR! 

I?  UON2 ( 16 , . SFC3  )=255  THEN 
CALL  DI3FERF. ! 

END  CLOSE$ IN T^FIL ! 


C  LEAR  $LN  £  BUFF:  PP.OC  PUBLIC! 

CALL  FILL(  .LINEB>TFF, '  ' ,  CON’UFFS  IDE  "  ! 
END  CLEAR$LN$EUIF! 

LI5TIINE:  PPCC (LENGTH ) ! 

DCL  (LENGTH, I)  BYTE! 

r  A  T  T  rT?T  T! 

call  ?rint$dec(lineno); 

CALL  PP I NT^CHAR (  '  ' )  ! 

DO  I  =  0  TO  LENGTH! 

CALL  PRINTCEAF.  (LINE3UF?(I  )  )  ! 

END! 

CALL  CRLF! 

TND  listline; 


/*  SCANNER  INTERFACE  */ 

GETCHAR:  PROC  BYTE  PUBLIC! 

NXT$S?.C$CHAR :  PPOC  BYTE! 

RETURN  SOURCEEUFF ( SOURC EPTB  ) ! 

END  NXT$S?C$CEAP! 

C ^EC 7F ILE :  PPOC  BYTE! 

LO  FOREVER! 

IF  (SOURCEPTR :  =SOnRC FPTR+1  )>  =  SOl'RCERFCr  I 
DO! 

SCURCEFTR=0! 

IF  READ$SRC$?ILF=FI LEEOF  THEN 

return  true; 

sni; 

IE  (NFXTCHAR:=NXT$SRC$CHAR)OL7  TEEN 
RETURN  FALSE! 

FNL! 

END  CHFCKFILF! 


r 


IF  CFFCXFILE  CE  ( NFZTCHAR  =  ZCFFILLEE)  T  - r'.' 
rc;  /■•■  fof  reachzi:  */ 

CALL  UCVE(  .(  'ECP'.IOLCH»?.lF)  .SRLCC  .5': 

SOURCEPTR  =  3? 

NIXTCE AR = N  X  T  $  S  ?.  C  $  C  ?  AR ; 

end; 

LIMI?U5F(LINI?Tw  :=LIMP"R  +  1  )=N  EXTCHAF  J  /^OUTPUT  LINZ-/ 
IF  N EXTCH* R  =  SCI CHAR  THEN 

rc; 

LINENO  =  LINFA'O  +  1 J 
IF  LISTSCURCE  TEEN 

CALL  LISTLINF(LI.'JEPTP-1  }; 

LINEPTR  =  31 
CALL  CLEAR  I  NEUFF  5 

end; 

IF  NFXTCFAR  =  TAP  T^FN 
N'ZXTCHAR  =  '  'X 
RETURN  NEXT CHARJ 
FNE  r. ETC  FA?.? 

E.«r  sts ^routines; 
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SCAN  .  5  ?.  C 


DECLARE  LIT  LITER  ALLY  'LITERALLY', 

SCAN:  EC  J 

DCL  LIT  'TiCLARE  ' , 

PPOC  LIT  'PROCEDURE', 

EXT  LIT  'EXTERNAL  ' , 

TRUE  LIT  '1', 

ADD?  LIT  'ADDRESS', 

TA  LSE  LIT  '2', 

CONTENT  LIT  '7ER  ' , 

U'l  CC^UEN  1  LIT  '7DH', 

E^PE^F15  LIT  'V- ILF  TRUE'; 

LCL  I  DENTS  I  ZE  LIT  '32',  /*  IDENTIFIER  SIZE  *  1  */ 

EGLCHA?  LIT  'OCR '  ,  /*  END  CE  SCARCE  LINE  CHARACTER*/ 
7ASHMASK  LIT  '127',  /*  HA RATABLE  SIZE  -1  */ 

SIR  IN  C-D  EL  IN'  LIT  '27E',  /*C  ?A  R  USEE  TO  DELIMIT 
STRINGS  */ 


/*NUPPEP  TYPES  */ 

IN  TEC- ER  $  TYPE 

LIT  '1', 

UNS  IC-N  $EXPGN 

LIT  '3', 

PEA  Li  TYPE  LI 

T  '2', 

SION  EES EXPON 

LIT  '4'; 

/*  global  variables  */ 

ECL  LISTiTOKEN  PYTE  PUBLIC  INITIAL  (EALS- )  , 

L!ST$PROr  EYTE  DUELIC  I M IT  IAL ( 7 ALS E  ) . 

LIST$SOUFCr  BYTt  PUBLIC  INITIAL''  FALSE  )  , 

EEPVR$LK  PYTE  PUBLIC  IN  IT  IAL  (  rALS  J  '  , 

NOINTEILE  eyte  PUBLIC  INITIAL(FALSE), 

/*  GLOBAL  VARIABLES  USED  BY  THr  SCANNER  */ 

TOKEN  *YTE  EXT,  /*  TYPE  0?  T^KEN  JUST  SCANNED  */ 
nASECODE  PYTE  EXT,  /*  HASH  VALUE  C?  CURRENT  TOKEN 

*/ 

NEXTCUAR  EYTE  PUBLIC,  /*  CURRENT  CHARACTER  EROU 
OETCHAR  */ 

CON^  BYTE  EXT,  /*  INDICATES  7ULL  ACCUV — STILL  UOP.E 

*/ 

ACCUM^ ILENTSIZE)  EYTE  EXT,  /*  HOLDS  CURRENT  TOKEN 

*/ 


NUUPERC  LIT  '54', /*  NUMBER  */ 

STRINCC  LIT  '55',/*  STRING  */ 

IDEM TC  LIT  '53'?/*  IDENTIFIER  */ 

/*  LOCAL  VARIABLES  */ 

DCL  LOOKEL  BYTE ,  /*TRUE  WHEN  C-STCHAR  HAS  ALREADY  RETURNED  A 
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[ClOi?  / 

T-rPC^AHl  BY TZ ,  /*  FOLDS  PREVIOUSLY  SCANNED  CFAF  */ 
?ZMPCEAR2  EYTE?  BCL  PARI'LIST '9  '  BYT7  IN  I T  I A  L  (  '  '  '  ; 
D7CL4PZ  VCCAB  ( 1  *7 f* )  BYTE  INITIAL 

(  2  ,  •  ,  <  •  \  .  +  t  O  r  ?  t  "  .  -1  •  )  ♦ 

'  *  j '  '  * 

SIE.  ':  =  ',  'EC',  'IF'.  'IN'.  'OF', 

'CP'  'TO',  'POP', 

J  A  N  E  ' ,  'E IV '  ,  'PND',  'FOP.',  >nu',  'MU',  'NOT',  'SIT', 
'P  AH  '  ,  'CASP', 

'PIS7',  'FILS',  'GOTO',  'THIN',  'TYPP'.  'WITH',  '  A  F  ? 4  Y  ' , 
'BEGIN',  'CONST', 

'L»BPL',  'UNTIL',  'WHILE',  't'CVNTC',  'BACXEE',  'RECCPE', 
'REPEAT  '  , 

'PBCCRAK',  'FUNCTION  ' ,  '?ROCIETTRE  ' )  : 


DCL  VLCC(IO)  3YTE 

INITIAL (3, 1,17, 33, 63. 91, 121. 145, 15?, 162  )  ? 


ECL  V.N  UM  ( 10  )  BYTE  I NI TI  AL(  C  ,  1  ,  1* ,  25 ,35 ,42  ,46 ,53 , 56  )  ? 

ECL  COUNT (10  )  BYTE  INITIAL (P  .15.7, 5. 6, 5 ,”,0,0,0  1  ; 

/*  GLOBAL  PROCEEURF?  */ 

DECLARE  PARKS  ADDR  EXTERNAL, 

TYPSNUK  BYTE  EXTERNAL  J 

MOVE* PROC  (SOURCE, DESTIN ,L)  EXTERNAL? 

ECL  (SOURCE, DESTIN)  ADDR, 

L  BYTE? 

END  *OVE? 


ZP°QF :?ROC (ERRCODE)  EXTERNAL? 
ECL  FRPCODE  AEEP » 

END  ERROR? 


OPEN$SRC^EILE:  PP.OC  EXTERNAL? 
END  OPENSSRCiFILZ; 

CLEAR$LNSBrFF:PHCC  EXTERNAL? 
END  CLFAR$LN  $BUFFJ 


f  #  >!«  &>!«>(«  #  s!e  >1*  Jit#  K<  #  J*  X?  #  >!«  ###  Of  if  Xfi  s:«  V  4  #  >r  Jp  #  W  »:«  J,’;  #  #  J(!  #  #  V  Xf  J(t  V  #  *;=  S'  *Je },: 

*  SCANNER  PROCEDURES  * 


GETCHAR:  PROC  BYTE  EXTERNAL. 

END  GET CHAR? 

GETN03LANS:  PROC? 

EO  WHILE ( (GETCHAP  =  '  ' )  OR  (NEXTCHAR  =  ECLCHAR  '  )  ? 
END? 

END  GETN03LANE  ? 
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riIT$SC»  N'J  ER  :  ?PCC  PUBLIC  j 
-CL  COUNT  ?  YTE  , 

I  pits; 

1=0? 

CALL  MOVE  (PAPMS  .  .PARULIST,  c) 

IF  ?ARMLIST( '  T  HEN 

DC  WHILE  (  COUNT  :  =PAEMLIST  ( I : *=I  -1 )  ’O' 
IF  (COUNT:=CCUNT-'A  '  )<=4  TrEN 

ro  case  count; 

LISTSCTTPCE  =  TRUE;  /*  A  */ 
LiSTPP.or  =  true;  /*  p  */ 
nointfils  =  true;  /*  c  */ 

LIS TTGXEN  =  TRUE;  /*  D  */ 
DEPUGLN  =  true;  /*  F  :;7 
END;  /*  OF  CASE  */ 

*nd; 

CALL  0PFN$SPCS7ILS; 

CALL  CLE>RSLN$EUIP; 

CALL  n-  E  T  N  0  B  L  A  N  X  J 

end  init^scanner; 


/  s;«  sjt  j|s  j;«  #  s[:  s|«^s  *  #  s1.:  s^#  s^  s’:  ^  if  *  3]:  si: 5;:  if  i:  if 

*  SCANNER.  * 

«  if  s’:  *  is  2:  *  si:  S!  if  iiififififitif  if  if  if  &  it  it  if  si!  si:  si!  si:  si!  si:  si: 


»•»  *■<  *•»  «•/  *V  »■»  «•»  »•<  %*>  »•»  J#  *>»  »•* 

*r*  n%  #,* 


SCANNER:  PRCC  PUBLIC? 

PUTINA. C CUM:  PRCC; 

IF  NOT  CONT  THEN 

TQ  • 

AC CUM ( AC CUM ( 0 )  :  =  ACCUM(0;  +  1)  =  NEXT CHAP 
*JA  5HCODE  =  (HASHCODF+NEXTC^AR )  AND  FAS  -  MAS 
IF  ACCUMf0)  =  31  TrEN  CON  ^  =  TRUE? 

end; 

END  PUT  I NA  C  CUM'  5 

PUTANDCET:  PROC; 

CALL  putinaccum; 

CALL  C-ETNOPLANX; 

END  PUTANDCET; 


PUTANDCHAR:  PROC? 

call  putinaccum; 

NEXT CHAR  =  CETCEAR  J 
END  PUTANDCEAF.; 

NUMERIC:  PROC  BYTE; 

RETURN (NEXTCEAR  -  '0')  <=  9? 

END  numeric; 

LOWERCASE:  PROC  BYTE? 

RETURN  ( N EXTCHAR  >=  61H)  AND  (N-XTCEAR  <-  7»F); 

end  lowfr$case; 
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D ~ C I y A L? T  : ? F G C  BYTE  J 

return  nextchar='.'; 

END  rTCIKM.PT; 

CONVSTOSUPPEHiPT.OC  J 
I?  LOWERCASE  THEN 

NEXTCHAP.=NEXTCFAP  AMD  5 EH; 

END  CON'7$TO?UP?£P.  J 

LETTER  :  PROC  EYTE! 

CALL  CONV$TOSUPPEE» 

RETURN  (  (NEXTCHAR  -  'A')  <=  25); 

ENI  letter; 

ALPHAS UV :  PROC  BYTE? 

return  numeric  or  letter.  ; 

ESL  ALPHAS l™> 

SPOOLS UK.R IC :  PPOC? 

DO  WHILE  NUMERIC; 

call  putandcear; 
end; 

ENE  SPOOLNUMRIC; 

STTSNSXTSCALL:  PROC; 

IE  (NEXTCHAR  =  '  ' )  OR  ( H EXTCH A R=ICLCHA P )  THEM 

call  getnoblank; 

CONT  =  FALSE: 

end  sft$next$call; 

LOOKUP:  PROC  BYTE? 

ECL  rAXSWLMG  LIT  '9'; 

DCL  FTP  ADD? ,  (FIELD  BASED  PTP)  (9/  3YTE5 

ecl  i  pyte; 


COMPART:  PFCC  BYTE  i 
DCL  I  byte; 
i  =  e; 

DO  VEILE  ( FIELD ( I  )  =  ACCUV(I  :=  I  +  1))  AST  I 

<=  ACCTJM(0); 

ent; 

RETURN  I  >  ACCUM!(0)J 

FNE  compare; 

IF  ACCUM(fc)  >  MAXRWLNG  THEN 
RETURN  FALSE; 

?TR=VL0C(ACCUM(2) )*.VOCA?; 
ro  I=VHUM ( AC CUM ( 0 ) )  TO 
(VMUK(ACCnK(0))*COUNT(ACCUK(0)  )  )? 

IF  COMPAFE  THEN 

do; 

TOETN-I J 
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RETURN  TEUEJ 

end; 

PTR  =  ?TR+ACCUy (L  ^  ; 
END; 

RETURN  FALSE? 

ENT  lookup; 


Ct3ECE$EXP:  P°OC; 

/«  71115  TASES  CApv  D7  EXPOS.  FORM  */ 

IF  NEXTCEAR  =  'Z '  THEN 
CO  • 

TYPES’LL  =  UNSlGNliEEPCN  J 
CALL  PUTANrCHAR; 

I?  M EXTCHAP  =  OP  N FXTCHAP  -  TE 

lo; 

CALL  PUTANLCFA?; 

TYPENUM  =  SI3NED$EX?0NJ 
esc; 

CALL  SPOPLKUMRIC; 

end; 

END  CHECK iFXPJ 

I  if  if  if  tf  if  ijs  if  !|t  :(«#  3fs  #  >|s  j)t  #  #  s!:  >|£  j)t  :;;####  # it  it sjc  :J:  s;s  it  if it sf :f  if  / 

SCANNER  -  MAIN  CODE  ***/ 

f  if  if  itifitifitit lii#  :;e  ^  ^  it  if  if  if  if  it  if  if  it  if  3,:  it  if  s;;  if  s*  it  it  :|t  if s;:  if  / 


fit  iff 


rc  forever; 

A  C  C  UM ( 0  ) ,  EASHCODE,  TOKEN  =  0; 

IT  (NPXTCHAR  =  STR I NGDZL Iv }  OR  COST  THEN 
DC;  /*  FOUND  STRING  */ 

TOKEN  =  STRINGCJ 
cost  =  false; 
ro  forever; 

DO  WHILE  GETCHAR  O  STR INGDEL IM? 

CALL  PUTINACCU^; 

IF  CONT  THEN  RETURN; 

in  D ; 

CALL  getkoplank; 

IF  NEXTCEAR  <>  STRINC-DELIy  THEN 
RETURN ; 

CALL  PUT$IN$ACCUr; 

ENI:  /*  CF  DO  FOREVER  */ 

END;  /*  OF  RECOGNIZING  A  STRING  */ 

ELSE  IE  NUMERIC  THEN 
DO;  /*  HAVE  DIC-IT  */ 

TOKEN  =  NUMRFRC; 

TYPES’ UM  =  INTEGER$TYPE  J 

DO  VEIL!  NEXmCHAR  =  '0 ')  /*ELI”  LEALINC  ZEROS-/ 

nextchar=gftchar; 

end; 

call  sppolnumric; 

I?  DECIMAL?"  TEEN 

do; 

TEMPCHAR1  =  NEXTCEAR; 

NEXTCEAR  =  GETCHAR 5 
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i 7  nc:v»L?T  tc7n 
DC  5 

LOCK ED =T RUE  *  /*H s  N ILI  .  .*/ 
RETURN ; 

F\r; 

EL  S I 

do; 

T7MPCEAR2  =  NEXTCHAR; 

N EXTCHAR  =  7EV?CHA FI  I 
CALL  PIT$IN$».CC!?n; 

NIXTC H A  ?. -  T  E  K  P  C rJ  A  ?  2  J 
TY?ENUV  =  PE AL$TYPE; 

CALL  SPCOLNUMRICJ 

end; 

TV  T  ; 

CALL  CHECK 5 EX?; 

IF  ACCTJMU)  =  2  THEN 

HAS  HCOLE , A  CCUV ( ACCUV ( 0  '  :  - 1  '  =  'Z'i 

call  s7t$nixt$call; 
return; 

END;  /*  OE  RECOGNIZING  NUMERIC  CONSTANT  */ 
ELS'  I7  LETTEF.  THEN 
DO?  /*  HAVE  A  LETTER  #/ 

E°  WHILE  *LFFANUM; 

call  putandcha p ; 
end; 

IF  MOT  LOCKU7  them 
TOKEN  =  ILENTC; 

CALL  SPTiNEXTSCALLf 
RETURN J 

7ND;  /*  CE  RECOGNIZING  ?’//  OR  ILENT  */ 

ELSE  DO!  /*  SPECIAL  CHARACTER  */ 

17  MEXTCHA  R  =  COMMENT  THEN 

ro; 

NEXT CHAR  =  GETCHAR  J 
DO  WHILE  N EXTCEAP.  <>  UNCOMMENT; 
NEXTCHAR  =  GETCHAR; 

end; 

CALL  C-ETSNOmANX; 

end; 

ELS  F 

r  a  » 

A-  V  > 

IE  NEXTCHAR  =  THEN 

do; 

call  putanlchar; 

IE  N EXTCEAP  =  '='  THEN 

call  putandozt; 

enl; 

ELS7 

I7  NEXTCHAR  =  THEN 

do; 

I7  LOOKED  THEN 

do; 

lcckfl=false; 
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r  i  7  T  T  \  i  j 

sextc?.»?  =  ;  . ' ; 


ZL53 

CALL  PUTANECHA?; 

IP  NPXTCPAR  =  T"EN 

cali  putanlcet: 

PLS  7 

IP  Nu V. F?  I C  THIS 

re; 

TC  rPM  -  M  Lv 3P° 
TY?SNUV  =  FEALSTY?: 
CALL  SPP^LMLr-PIC  ; 
CALL  CPECKSEX^; 

CALL  3  FT  iN  EXT  ACALL 
RETURN i 
end; 

E  ME  ; 

ZL3E 

C  ALL  FLTA.NEGFT  J 


IP  NOT  LOOPUP  T ? P N 
CALL  PRPCR('NC'); 

CALL  sft$next$call; 
rptufn; 
pA'EJ 

rMD5  /*  OP  RECOGNIZING  SPECIAL  CPA?  */ 
PNZ;  /*  np  lo  FORPV’PP  #/ 

PMT  SCANNER; 

ME  scam; 
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■  o 


PA 5 SI?.  .S~C 


i  ?  A  C-  Z  Id  I  DTE (=3  )  TITLE('  PARSER') 

PARSER:  EO; 

DICE  4  BI  LIT  L ITE°ALL7  'LITERALLY', 

ICL  LIT  'LEC I  ARE '  ,  PUB  LIT  'PUBLIC',  TXT  LIT 
'EXTERNAL  '  , 

PBCC  LIT  'PROCEDURE '  . 

?°UE  LI?  '1', 

A  I  r  u  LIT  'A  rD°?SS  '  , 

FALSE  LIT  'C'  , 

T DRIVER  LIT  'WEI LE  TRUE', 

STATESIDE  LIT  'ADDRESS  ' , 

TNDEXSIZF  LIT  'ADDRESS';  DCL 

I  DENTS  I Z  E  LIT  '32',  /*  *-AX  IDENTIFIER  SIZE  -  1  *' 

V  ARCS  IDE  LIT  '100',  /*  SIZ”  OE  ’’ARC  STACY"/ 
PSTACYSIZE  LIT  'io',  /*  SIZE  CF  ?AP3r  STATUS 
BASPTRL5IZE  I.IT  '12='.  /*  SIZE  OF  :-’ASTJTA3LE  */ 
BCLSI^E  IIT  /#  BYTES  USED  r0R  BCL  VALUES  */ 

"‘XiNEST  LIT  '2',  /^AX  LEVEL  CT  NESTS  EC9  TY?TS*/ 
A'AX-ARR  Y  iDIM  LIT  '5'»  /#  VAX  a?°Y  7IUENSIr'NS  *■*/ 

/*  many  of  tee  following  vabiabi^s  CAN  re  REPLACED 
BY 

LAYING  USE  OF  THE  PARALLEL  PARSE  STACKS  */  DCL 
SIGN  TYPE  EYTE  PUR  INITIAL  f0), 

nOfl  S  T  S^Y  PE  3YT7  PUB  INITIAL  (?),/*  TY?T  0°  CONST*.  N 

"/ 

FORM  BYTE  PUB  INITIAL  ( -3  )  . 

EXPOM  BYTE  RUB  INITIAL  (0), 

VECPT?  BYTE  PU?  INITIAL  (  3  )  , 

TY0EN  Uv  BYTE  PUR  INITIAL  (e), 

CONS^iPTF  BYTE  °UB  INITIAL  (?)  , 

TYPFiADDR  ADD?.  PUP  INITIAL  (3), 

TYPESLOC?  Air?  PUR  INITIAL  (0), 

V»Ri?TR  BYTE  PUB  INITIAL  (0). 

VARiPARPiPT?  °YTE  PUB  INITIAL  (3), 

A  LOCR AS  I CTYF  BYTE  FUB  INITIAL  (?), 

A°RY$0'T’Y  (yAX$A?SvSDII^)  ADD'0  PUB  INITIAL  (?)  . 
VA?$3ASE(13)  ADD?  PU15  INITIAL  (3), 

VAR$BASE1(10)  ADER  PlTE  INITIAL  (?), 

AtLC$CTT  ACDF  PUB  INITIAL  (0), 

TvPFiORDiNUT  rYTE  PU*  INITIAL  (3), 

papfntsttpe  adtr  pub  initial  (e-f 

CONST$IN  DX  *YTE  PUB  INITIAL  (0). 

LOOKUPiAEDR  ADD?  PUB  INITIAL  (2', 

C0N?T$VEC(4)  BYTE  PUB  INITIAL  < ?) , 

COHSTiV ALUE ( 16 )  BYTE  PUB  INITIAL  (0), 
C0NST4PNSHASF(4)  BYTE  PU13  INITIAL  (3), 

CONST i0 NiP TP  EYTE  PUR  INITIAL  (?)  , 

C0NST$PN$SIZE(4)  BY^E  PUB  INITIAL  (0), 

INTEGER iDIFE  ADD?  PUB  INITIAL  (3), 

SURRiVAL  (2)  ADER  PUB  INITIAL  (0\ 
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cr-rp  <  7(  *,  '  ty”?  ~r~  T  *i  I T  i  L  ■  7  '■ 

p'raps  pic  by^-'^UB  1^’TIAL  ??;. 

STT  r  ^  TY?  4  A  TIB  ADD?  ?H3  INITIAL  (?■, 

SUBR^  70  Ry  BY"7  PUB  INITIAL  ( 7  \ 

SIC-NVALU  3YT7  PUB  INITIAL  (7). 

A  77 Yt BA  5?  ATI?.  FUB  INITIAL  ' .?  }  . 

A^RTSFTB  BY"?  PU?  INITIAL  ''255)  /*  -1  -  ' 

1?RY$DIY$?TC  BYTE  PU  3  INITIAL  (7'. 

FT?.???.  BYTE  PUP  INITIAL  ( 2  )  , 

”AG£?Df yAX$N7S? '  BYT?  PUB  INITIAL  '7', 

V  A F  $  C  AS  $  TP  ( Y  A X $  N  ES  ?  )  ADD?.  PU7  I  'i  IT!  AL  ?  . 

VA  ?  £C  AS  iVAL  (  YAX^NEST  '  ADD7  PU"  INITIAL  ■  7  '  , 

P I C  $  7  AR  $  TY  P  f v  A  X^  N  ES  T  )  ETT7  PUP  INITIAL  (?\ 

FFUiNST  BYT7  PUB  INITIAL  (255),  /*  -1  */ 

HIC^PESPTH  ?TT7  PUB  INITIAL  '255),  /*  -1  */ 

7  7  C  £  L  D  R  ( 1 0  '  AIER  PUB  INITIAL  ( 7 '  , 
77C$PAF.$AD?(yAXS*!ES”  )  ADD?  P'17  INITIAL  (7), 

VA?  I A  N'T  $  PART  ( MAX$N7S  T )  BYT7  PUB  INITIAL  ?2). 

FTP  4  r>7c  T$ES7  fMAX£  NES  T '  ALIR  PU?  INITIAL  (O' 
V»Bi07STS3S7(MAX$NtSTj  ADD?  ?U7  INITIAL  (?)', 

CU7  £o?S  T ( YAX^  NEST  )  ADD?  PU7  INITIAL  (2', 

WUV^  A  RRT  ir  IN'  ( v  AX5  ARRYir  I M  )  BYTE  PUB  INITIAL  '7'. 
A?RV$D!MFN (?5 )  ADD?  PUB  INITIAL  (2). 

ARYSDYAaDPSPTR  7YTE  PUB  INITIAL  >'255'.  /#  -1  ■■■/ 

/#  CASE  STATEMENT  VARIABLES  * / 

C  1  S  7S  ST:I  ( 1 2  )  BYT7  PUB  INITIAL  (7),/-  *  C7  S7YTS  IN 
CURRENT  CAS7  */ 

CAS  E$  C°  UN  T  EYTF  PUB  IV  I T  I A  T  '255),  /■■■  -1  -  LEVEL  07 
C»SE  STYTS  */ 

CONS  T^NUY iTYPE ( 4 )  BY”7  ?U7  INITIAL  (2)5  TCL 
BCrNUI5(ECrsi7E)  BYT7  PUB  INITIAL  (7), 

S  7  0  P  7  ( 1 7  )  ADDP.  PUB  INITIAL  (7), 

SCOPTSKUK  BYTE  PUB  INITIAL  (2), 

TEypBYTE  BY”E  P!TP  INITIAL  (0) 

T iYP^YTEI  BYT7  PUB  INITIAL  (7), 

TEYPADDP.  ADD?  PUB  INITIAL  (2), 

teypa ddri  atlr  7ue  initial  (0), 

PPCDT’CT  I  ON  BYTE  ?U3  INITIAL  (0). 

P?V$S3T$FNTPY  ‘DDR  PUB  INITIAL  '2/J  DC  L 
/*  COMPILER  TOGGLES  */ 

LISTSTOETN  BYTE  EXT, 

COMPILING  BYTE  INITIAL  (2). 

/*  COUNTERS  */ 

LABLCOUNT  ADDP  PUB  INITIAL  (0),  /*  COUNTS  NUMBER  OE  L A F 7 L S 
*/ 

ALLOC  6  ADDP  A  DDR  FUJ  INITIAL  (2),  /*  COUNTS  P7?  ENT7I7S  */ 

/*  FLAGS  USED  DURING  COr7  GENERATION  */ 

CA.SEASTMT  BYTE  PUB  INITIAL  (2),  /*  IN  CAS7  STATEMENT  #/ 
!"’RITE$STMT  BYTE  PUB  INITIAL  (7),  /#  IN  WRITE  STAT7Y~\T  */ 
RFADSSTYT  BYTE  PU3  INITIAL  (0),  /*  IN  READ  STATEMENT  'V 
NEW *  STMT  BYTE  PUB  INITIAL  (2),  /*  GETS  NEW  RECORD  */ 
riSPOSE$STyT  BYTE  7UE  INITIAL  (e),  /#  DISPOSES  OF  RECCRT  **/ 
ALLOCATE  BYTE  PUB  INITIAL  (0),/*  PRT  LOCATION  ASSIGNED  */ 

V A 7 p A P M  PYTE  PUB  INITIAL  (0),/*  FORMAL  PA 7 AY  IS  VARIABLE 
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T  Y  °E  *  / 

P°AD?4?KS  BYTE  PU3  INITIAL  (?),/*  BEATING  ACTUAL  ?AcA.vrT>? 
*/ 

PRESENT  PYTF  PU?  INITIAL  (Z>,/*  IDENTIFIER  IS  1“'  SYMBOL 
TA°Lr  */ 

NO* LOOK  PYTF  INITIAL  (■3',/*  C0NT3CLS  CALLS  TC  SD4NNE?  *  ' 
SIGMFLAC  BYTE  FUE  INITIAL  (Z) , /*  SET  VEIN  SIGN  PRECEDES  I 
*/ 

/*  o LC3  AL  V4?IA3LFS  USED  BY  THY  SCAMP?  *  / 

TOKEN  BYTE  PUB  INITIAL  (3).  /*  TYPE  OF  TOKEN  JT,ST  SCANNET 
*/ 

°ASFCODF  ^Y"'?  PUB  INITIAL  (0),  /*  PASH  VALUE  CE  CURRENT 
TOKEN'  */ 

CO‘!T  PYTE  PUB  INITIAL  (0),  /*  INDICATES  FULL  AOCUv — STILL 

wppp  A-/ 

ACCl™(  IDENTSIZE)  EYTF  PUB  INITIAL  (0),  /*  H0LT'5  CUP0 ENT 
TOKEN  */ 

/*  GLOBAL  VARIABLES  TJSET  IN  SYKPCL  TABLE  OPERATIONS  */ 

BASE  AIDR  PUB  INITIAL  (?),  /*  BASE  LOCATION  OF  ENT?. Y  */ 

FA  S  FT AB LE  ( PA  S5T3LS I  ?. E )  ADD?  PUB  INITIAL  (0).  /#  FA  SET  ABLE 
ARRAY  */ 

??nELTCP  ADD?  PUB  INITIAL  (0\  /*  HIGHEST  LOCATION  op 
SYK°OL  T4  BLE  */ 

S°T?L  ADD?.  PU13  INITIAL  (2).  /*  CURRENT  TCP  OF  SYK°CL  TABLE 
*/ 

A  PTP.ADEE  A.  DDR  PUB  INITIAL  (0),  /*  UTILITY  VARIABLE  TC 
ACCESS  S3TBL  */ 

PR  I  N’T  N  A  YE  ADD?  ?UE  INITIAL  (0),  '*  SET  PRIOR  10  LOOKUP  0° 
ENTT?  */ 

S  YURA  3“  BYTE  PU?  INITIAL  (3),  /*  HASH  VALUE  A 'I 
IDENTIFIER  */ 

LAS7£S3T3L£ID  ADD?.  PUB  INITIAL  (0),  /*  HOLD  PREVIOUS  BASE 
LOCATION  ’V 

PA?.AM.NUKI0C  AT DR  PUF  INITIAL  (0),  /*  STORES  POINT??  TO 
P  A  R  A. w  LISTING  */ 

S^TELSCOPE  ADD?.  PU?  INITIAL  (0),  /*  ?4°E  CF  LAST  ZJiTPY  IN 
PREVIOUS  BLOCK*/  BUILTINTEL 10 )  BYTE  EXT! 

FILL:  PPOC  (A, CHAR, N)  EXT 5 
DC L  A  ADD?. 

(CFA  ? , N  )  BYTE? 

END  EILL? 

I NIT^ SYKTPL  :  P0OCJ  DCL  SYK3ASE  ADD0  ? 

ro; 

CALL  EILL (  .FASFTA3LE,0 ,?65)  > 

S  YUBAS  E  =  .  EUI  LT$I  N’^TBL  (  ?  )  ? 

SEi'rL=.NEUORY: 

FASFTA3LE(  14  )  =SYK3ASE  J 
FA  SHTAELE (36 ) =S YK3ASE+14 : 

FASHTABLE(3?) =SYMEASE+25 : 

PAS  FT* °LE ( 0 ) =S YK3AS  E+36 I 
HAS^TAE  LE ( 69 ) =SY KB A SZ  +5?  ? 

HA SETA BLE ( 16 ) -SYK3AS3*51 J 
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1  ■,3^=cvv'ciSTj‘r7"7  t 
Hs ET A 3LS  ( 96  )  "=S  YM3  AS Z+Q6; 

F  A  S F  TA  3 LE  ( 1 1  £  )  =S  Y P-'?  A  5  F  + 1  20? 
HAS FT *  FIE (5^  ^ =SY''/B  ASE  +  142 ; 
PASETA3LE(1P3) -SYK3ASE+15-9; 
FA3FTA  BLE(  26  )  =SYMBASE+173  J 
EA SETA E LE (74 ) =SY MPAS 3+1 c6? 
HASHTA3LE ( £7 ) =S YM3ASE+201 ; 

FA  SHTABLE (93 ) =SYMBASE+233 1 
FAS  ETA ELE( 12 ) =SYMEASE+244; 
HASHTA^LEt®  )=SYM:3A5E+26P  ; 
^ASHTABLE ( 131 ) =S  YMBASE+27P; 
FASETAPIE(93)=SYKEASS+2pe ; 
FASETA3LE ( 46 ) =SYM3 ASE  +304 J 
HA  SETA  3LE (43 ) =SYMBA  SS+31 9  > 
HAS  STABLE  ( 121  }=SYI'E  ASE+334J 
FAS  STABLE  (96  ) =SYM3 ASS+347 ; 
FASUTAT>IE(3^  =5  YMBASEJ-3S3  ) 
EASnTAELE(34) =SY MIAS E +375 ; 

H  ASHTA3LE  (  ?9  )  =S  YM.B  ASE+3  92  ; 
HASpTABLE(136)=SYM3A5E+406; 
HAS ETA PIE (23 )=SYMBASE+41£  J 
?ASETABLE(64) =SYK3ASE+434> 
rA  SETA3LE (l 37 ) =S  YM.3A5E  ■‘■44S I 
FAS  HTABIE  ( 28 )  =S  YMB.ASE+465  J 
EASETABLF  ( 54  )  =S YMBASE+47S  * 
EAStTTABLE(  11  )  =SYMBASS+493  J 
FASETABLE  (37  )  =SYMPA  SE+50'7? 

E  AS  ETA  B LE  ( 40  )  =S  YM.3  A S  Z +523 ; 

-  A  3  PTA  BLE  ( 21  )  =SY  MBA  3Z+53S  > 
EASETABLE (9S) =S YMBASE+552 ; 
nASETA3LE(6?)=SYKBASE+56'7; 
PF.Vi  ST5T$ENTPY  =  SYMPASE+567  j 
ENT  * 

END  imitssymt?l; 


ECL  STATE  STATESIZE  INITIAL  (0), 

VAR(PSTACKSIZT')  BYTE  PUB  INITIAL  (0), 

EASE  P?S TACKS  I ZE )  BYTE  PUP  INITIAL  >3), 

STATFSTACK  (PSTACKSIZS)  STATESIZE  INITIAL  P0\ 

? AFMN UM ( PSTACXS I  ZB )  BYTE  PUB  INITIAL  (0),  /* 
MAINTAINS  NUMBER  OF  PARAMETERS 

ASSOCIATE!  V ITE  A 

SUBROUTINE  V 

LABEL STA CK (PS TACKS  I ZE)  ADC?  ?UB  INITIAL  (3),  /* 
TRACKS  STATEMENT  LAPELS  */ 

PARVNUMLCC(PSTACKSIZE)  ADD?  PU3  INITIAL  (0).  /* 
MAINTAINS  TFE  LOCATION  IN  SYMBOL 

TPL  WHERE  PARAMETER 

IPIEO  STORED  */ 

BASEiLOC  (PSTACKSIZE)  A  CLP  PUB  INITIAL  (0\  /*  STORES 
TEE  SYMBOL  TAELS  ALLPESS 
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C?  TEE  PEP.TI  NATE  ENTRY 


*  / 


rrt?v$FiiLE(?cTACKs:zs'  byte  ®ub 

STCF”S  T^T  EOPY  FIELD  CF 

scjnm:  irri,":’:;-s 

TY??$STACK(?STArKSIZi)PTT?  PUP  IN  I TIA  L  •  1  '  , /*  -f 
A  Tip  I  ARIA'S  TXPE  */ 

EXPRESS SSTX (PSTACKa IZS  )HYTF  ?U?  INITIAL  :  0  '  ,  /* 
CONTAINS  THE  TYPES  OF  T" 

EXPRESSION  C  C  U  ?  C  N  7  N 

*/ 

P®  T$  A  DDR ( ?3TA  CHS  I ZZ '  APE®  ?U-  INITIAL  •'  3  '  ,  /  >  -  ST 
AN  I LENT  I  FIFE 'S  FRT 


LC  "  ATI  CT  s-: / 

VA?C ^  VA  PCS  I ZE '  EYTE  PUP  INITIAL  ( 0^  , 

V  A  ? I N  D®  X  3YT7  INITIAL  (?)  , 

PARAMNUr  BYTE  PUP  INITIAI  (O'.  , 

(SP  tv?.N!??l;  BYTE  PUP  INITIAL  (?); 

/*  YNEKON  ICS  ?G®  PASCAL-SM  Y.ACHI'IF  */ 

LCL  MA  X®  N  0  LIT  '165'  /-PAX  PEAL  COUNT-/ ,  UAXLNO  LI"1  '?■! 
/*SMAX  LOCK  COUNT*/,  vAXPNO  LIT  '2«c'  /«vAX  p  t_-  5  tr  c  CUNT*/ , 
STARTS  LIT  'l'  /*STAFT  STATE*/ » 

EEC  LA®  F  PFAEl(l)  PYTF  FKT ,  REAE2 ( 1 )  AELP  EXT,  IXDEXl(l) 
ALL?.  EXT,  IN  L  EX2  ( 1 )  LTTE  EXT  ,  A??LY1(1)  BYTE  EXT,  APPLY? 
ALEP  TXT,  LCCKl(l)  ^YTE  ®XT,  LOOX?(l)  A  LDP  EXT; 


SETUP*  I. NTS  EIL  :  PPOC  EXT  J  ENT  SETUPS  INTSTILJ 
I  N I T  S  S  C  A  N  N  ER  :  ?®CC  *XT;  END  IN ITSS CAN M E? ; 

i nitssynt® :  ppoc  ext;  enl  initssynt®; 

FP.P.OP :  D?.0C  ( EHP.CCDE )  EXT?  DECLARE  ERRCODE  A  DDR;  END  T33Q 


SCANNER:  PPOC  EXT?  FND  SCANNF?.; 

PR  I N7STCKEN  :  PROC  EXT!  ENL  PRINTS  TOKEN  J 
SYNTHESIZE:  PROC  EXTJ  END  SYNTHESIZE? 

?® I  NT  :?ROC (A )  EXT; 

tcl  a  *lir; 
end  print; 


CPLF : PPOC  EXT? 

END  c®lf; 


T ITLE : PPCC  ; 

CALL  crle; 

CALL  PRINTf  .  (  'NPS-PASCAL  VEPS  0 . 0  E-UAE-SO  S'1'); 

call  cfl®; 

END  title; 

NOCONFLICT:  PROC  (CSTATE)  BYTE? 

DCL  CSTATE  STATFSIZE,  (I,J,X)  IND^XSIZE? 
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J=  IN7EX1 (CSTATE^  ! 

:<=  j  *  i •( rzx2  (  cctate )  -  i; 
ro  i  =  j  To  k  ; 

IT  REA D1  ( I )  =  TOXFN  TEEN'  ^E^URN  "RUFi 
EN  D  ; 

PrTU^M  PALS  TJ 

END  noconflict; 

RECOVER:  PROC  STATESIZEJ 

ECL  ESP  RITE,  ESTATE  STATES  I ZZ; 
to  forever; 

TSP  =  SP J 

CO  WHILE  T5F  <>  255; 

IE  NOC0N7LICT ( RSTATF :=S  TATESTA  CE ( T5  P 1 )  THE V 
CO;  /*  STA  TE  VILE  PEAT  TOKEN  */ 

17  SP  <0  TS?  TEEN  SP  =  "SP  -  1 i 
RETURN  ESTATE ? 

end; 

TSP  =  TSP  -  I? 

end; 

call  scanner; 
ene; 

end  recover; 


EC;  /*BLCCX  FOB  DECLARATIONS*/ 

ECL  (I  ,  J  ,  X )  INLEXSIZE,  INDEX  RYTE5 
INITIALIZE:  PROC. 

call  initsscanner; 

CALL  INIT$SYNT3L; 

CALL  INITiSYNTF; 

CALL  TITLE? 

END  INITIALIZE? 

GETIN'l :  PROC  INEEXSIZEJ 
RETURN  INEEXK  STATE); 

END  GETIN1 ; 

C-FTIN2:  PROC  INEEXSIZEJ 
RETURN  INDEX? ( STATE  )  5 
END  GETIN2; 

INCSP:  PROC? 

IF  C S P  :=■  S15  +  1)  =  LEN C T3 (STATIST A CK )  THEN 
CALL  TEROP (  'SO') ! 

ENE  INCSP? 

LOOXAFEAE:  PROCJ 
I*  NOLOOK  THEN 

do; 

CALL  scanner; 
moloox  =  false; 
if  listtovfn  then 

CALL  PRINT* TOKEN; 

end; 

^nd  lookahead; 


*  / 


,CT7$VASC$I:  PROC'I);  /*  SET  VARC.  AND  INCR^NT  VARINIZX 


ccl  i  pyte; 

VA  F C  ( VA  P I NDEX ) =1 J 

IT  1  VAR  I N  ITT  :  =V  AH  I N  151*1  )  >  LTN  n  TH  (  7  A  ?.C  1  THEN 

c * ll  frfcp(  'vc') ; 

ENT  SFT$VARC$I» 


REJECT  /  *###*  ***  V*  *¥#  ¥*««**:?«:.•**  **##*>! 

*/  /*  PARSER:  EXECUTION  PEC-INS  HEPS  #/  /*  */ 


/ 


V  V  A*  *»'  T  *V 


c  i,';  ;|i 


.  .1-  *•.  .•/  «•> . 


».*  #  K~  *  ❖  *  #  / 


CALL  SITUPSINT$?IL;  /*  CPEATFS  OUTPUT  TILE  TOR  GEN^A.TED 
COLE  */  CALL  INITIALIZE;  COMPILING ,N PLOCJ=T?VF ; 
ST4?T=STAETS;  S?=2?£;  7APINDFX  ,7AP  ($! )  =  0;  EC  WHILE 

compiling; 

IF  S'T’ATE<=VAXP.NC  TnEN  /#  DEAE  STATE  *  / 

TN  ©  • 

CALL  IN’CSP; 

STATES  TACK  I S? ) =S TATE; 

I  =G  E  T I N 1 5 
CALL  lookahead; 

J  =  I +GETIN  2-1 J 
DO  1=1  TO  j: 

IT  PEAE1 { I  )=TOEEN  THEN  /#  SAVE  TOTEM  */ 
ro;  /*  COPY  ACCUV  TO  PROPER  POSITION  *f / 

V  A? ( S  ?  )  =  VA? INDEX  5 

Eo  IN  LEX  =  2  TO  ACCUV(  2)  ; 

CALL  SE?$VARC$I(ACCUP( INDEX) ‘  ; 

end; 

^ASH(SP)  =  HASpCOEE; 

S?ATS=RSAI2'I ) > 

nglcok>tf.us; 

i=j; 

en  r ; 

TTQT 

IF  I=J  THEN 

ro; 

c»ll  error (  'np'  ) ; 

IF  (STATS  :=  RECOVER )=2  THEN 
COMPILING  =  FALSE; 

end; 

end; 
enl  : 

ELS1’  IE  STATED AXP.NO  THEM  /*  i?rLY  PPOTUCTIOM  STATE  */ 

do; 

y?=S?-CETIN2; 

mppi=kp+i; 

PPOEUCTION  =  STATE-MAXPNO; 

CALL  SYNmHFSIZS; 

s?=mp; 

I=GET INI ; 

7AF INIEX=VAR(  S?  )  ; 


11? 


I  1c 


T=S  ~  4  TTSTAC”(  5  ?  ' 

c  w-ilf  ci^apf: 

▼  _  ▼  4.  “I  • 


a  m : 


•  \ 


t::d; 

IF  ^ S T *  T i  :  =  APPLY2  ( I  )  )  =  3  THT'< 

CCvtl  IL  I!J  c  =  false; 

FME  ; 

FL3E 

IF  STATH<=  hAILVO  TEE!.  /*  LOOKAFFAT  STA 
DC: 

I  =C-  F  T I N 1  ; 

CALL  LCCKAHEAI; 

EC  WHILE  U:=LOC"l  (  I )  )  O  ?  AM D  TCEFN 
1=1*1? 
fve  ; 

5  T  1.TF=LCCE2  ( I  )  ; 

EXE? 

ELSE 

DO;  /*  PUSH  3 ^ 4 TF  */ 

CALL  I N  C  3  ?  » 

STATFSTACK  (S?  ^  =  C-ETIN2J 
STATF=GFTI Ml i 

T  *•  rs  • 

r  .'i  u  y 

FMD  *  /*  CF  WHILE  CCYPILIXG  */ 

FVE?  /#  CF  ^LCCE  EOF  PAPS  IF.  */ 

EXE  PAPSI?; 


I 

l 


T  *  / 


o  •<; 
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:a?li:s  .src 


T  5  75  LrS  :  "C  J 

*^?AGEUL?-(E3)  HTLr(  'TA?Lr3  -  IALP'1'  Fa-3?  7»"1: 

T  J  ^  T  i  T  'fT'p'jro^T^v' 

4LBF  LTT’  'ALBE^SS  ' , 

ECL  LIT  'DECLARE', 

?U?  LIT  'PUBLIC'; 

DC  L  DUNXY  (3)  BYTE  TATA  (2,2.3);  /*riTMT  TILDE?  T  0 

2UILT$ in  Staple  to  i06?  */ 


DCL  PHiLTilM  iT^L  (*)  ?T'T’E 
3,3,3.2.42?, 14, 7, 'I','N', 

2  , 3  ,01 H , 36E , 4AE ,36,4, '? ' , 

2, 2, 3 IF, 14?, 5? H, 32, 4, 'C', 
0 , 0 . 0 1 E  ,  1 E?  ,  5A  E  ,  0 , 7  ,  ' 

0,0,01H,24F, 625,69, 4, 'T  '  , 
3,?,31H,36U,3EF,16,5,  'I  '  , 
0,0,01F,42?,1EF,112,^, 'C  ' 
e,e,eiH,4?F,0rF,86,7,'A', 
3,3,31P,5C?,3DB,116,3,'S ' 
2,0,01?  ,  6  A.  H  ,  2D  E  ,  1 6. 6 ,3, 'S ' 
0,0,01?,7SF,0D?,121,3, 'C' 
3 , 0 , 31F  ,  8cu  ,  3L:1 , 57 ,6  ,  'A ' , 
0,0,01F,9^,0rF,109,3,  'E' 
0,0  ,01^,045E,0DH,26,2,'L' 
3 , 3 , 31 H , 3 F3F , 3EF , 74 , 4 , '3' 
0,0,01F,0C0F,0EF,6'7,3,  'c' 
0,0,01E,2C?E,0DE,46,4/e' 
3, 2, 31F, 2 DDF, 3  EH, 9 3, 3, 

0,0  ,01H,0ECH,0DE,12,5f 'T  ' 
0,0  ,01F.0?»F,0B2,3,6,  ? ' , 
86?  ,  31? , 32? , 3A^ , 3BF ,131,3 
0 ,0,02F,1AF,0EH,93,3, 'C', 
0DDE  ,21F.  ,02^  ,28E»0DE  ,46,4 
3 , 3 , 32^ ,36D , 3DB , 43 , 4 ,  '  P '  , 
0,0,02F,45F,0r'E,121,3, 
0.0,02H,54^,0CH.96,3, , 
3,0,32H,61n,3Cu,33,5/P', 
0,0,02E,6FE,0CH,34,7, 'R', 

06?, 

3 , 3 , 32H , ?BF , 3CH , 25 , 4 , 'P', 
76H,01H,02E,8EH,0CF,106,3 

3  ,0  ,02E , 9CE , 0CR ,23 ,7 , 'D' , 
3,0,32Ht3A6n,39H,64,4, 'T  ' 
0  ,0 ,02H  ,0B8H ,09E , 107 ,5 , 'F 
0,0,02F,0C7E,0CH,?P,4, 'P ' 
3,3 , 325,3 r7F, 3 CE, 54,6 ,'P.' 
0 ,0  ,02E .0E4E ,0CE, 11 ,5 , 'tf' 
0,0,02H,0E3?,0CE,37,7,'w' 
0,0,33H,01F,3CF,43,4, 'S', 


?T’3 


'V  ' 

C  V 
/  w  / 

f 

'N\ 

,'U' 

'B', 

,'C' 

// 

,'c' 

,  V 
/r 

,'c' 

:/ 

/o' 

,'R' 

V, 

,'0' 

/S' 

,'u' 

V, 

'E  ' , 
'5', 

'A', 

,'N' 

V, 

,'P.' 
'/A 
,'E' 
,'E' 
/R' 
,'R' 
'E  , 


/-AT  (106?)-/  DATA  ( 

'  'r  '  '  7  '  'o' 

A  '  ,'L  ' , 

'A ','P', 

,  'T'  '7'  '  J  '  '  V  ' 

Av  f  L>  9  i-  9  r I  ,  * 

'X'.'T', 

' p  '  't*  '  'r  ' 

r  9  -»  t  -  t 

'm  '  '  n  '  '  *•  '  'm  ' 

'S ' ,0 , 13E ,1 ,13E  . 

, '^ ',1 ,13n,l  ,13?, 

,'N ',2 ,3F.l .13?  . 

'  C  '  7  -77  1  177 

f  *3  »  *-  fO-  »  i  |  iv...  9 

'C  '/T'/A',  'N'  ,4,3?  .1 .13?  . 
,'?  ' ,5 ,3F . 1 , 13?  , 

,6, 3?, 1,13^, 

,'?/  ,'T ',? ,3- ,1 , 13?  , 

,  'E  '  ,6 . 5E  .1 E  .  15  , 
,'L'/N',9,5E,1  .oe*7, 

, 'r',13,5c,1.36F, 

, 'U  ' , 'N  ' ,  'C',11 , IF. 1,3?, 
'U','N  '/D',l?,l?,l  ,?E  , 

, ','D',13.1H,1.2H, 

'R', 14,25.1, 1H, 

'r '  'r '  'r '  i c  i  v>"7r 

9  L  9  -/  f  V  flfK.  c  .  9 

'r '. ip, 273?. l.a^F, 

/T', 17,1  PH  ,  06F  , 

'T', IS, 105,063, 

'S  ',  'E  ' ,  'T'.^.l^H.Oe71, 

'W',  'R  '/I  ',  'T',  'E',20 .10?. 

'O', 'E ' , 2 1 , 1 3E . 36? , 

, 'E ' , 'V ' , 22 , PFEH  , 

'S ' ,'P ','0','S' , 'E',23 , 2EEF, 
,'U ','E ',3 ,3, 3, 3. 

', 'L', 'S'/E', 0,0, 1,0, 
,'a','D', 24,0 FEE, 

, 'A ' ,'C ' , 'L ' , 'N ' ,25 , 3EJH , 

,  'I  ','T',  'E  ' ,  26 . 0EEE  , 

,  'I ','T', 'S' ,'L' ,'U ',27 ,0^?E, 
'E',  '!C ' ,  26 , 2 , 26H  ,  31 F  , 
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7  7  113  1-»n  •)"  ?  'T'  'o'  'B  '  't'  '3'  '"' 

0  ,e  ,00G,20^,  11  -  ,SS,5  ,  'i' ,  'X  'A  '  .  'I  '  . 

0,  0,  03E,  288,118,  62,  1 1.  '  I  ','M  'I '7 '.'I' 


rcL 

S?A 

11  (*)  8TTE  PI’E  E  A  *A (  0 

C7  £  £ 

I  *  »  w  C  * 

e  n 

*  » 

C£  *?£  ?  £ 

^  -  I  -  V  * 

1  3 

15, 

34, 

55,  57,  58,  58,  58,  S 

.  14,  9 , 

5£  . 

52 ,  58  .  58  , 

58  , 

19, 

CO 

v  -  ♦ 

4,  10,  54,  55,  58,  3, 

4.  e.  10 

77 

* 

.  37.  42,  49 

,  50. 

54, 

£  £ 

*-  •-  t 

58,  22  ,  3,  4,  5,  10, 

31.  32, 

54  * 

E  £  £  Q  *7  * 

-  -  »  -  -  f  «•  *  *£ 

.  10, 

54, 

55  # 

52 ,  56,  3 ,  5 ,  31,  32 , 

54,  55, 

5£  ♦ 

22,  58  .  58. 

CO 

— '  -  9 

59,  5,  ?e,  29,  39,  38,  41,  43,  4’’.  51,  5*,  9c.  98,  9a, 
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7 

V 

9  w  9 

2  .  4, 

2  , 

2  ,  2  , 

2, 

•7 

t 

2,  3, 

2, 

2, 

2, 

2,  2, 

2,  2,  3,  2, 

7 

c 

,  e, 

4,  14, 

16 

,  26, 

27, 

2£ 

.  29, 

ei. 

63 

,  71  ,  72 

,  7?,  91.  92 

9 

O’* 

“ 1  -  . 

94, 

ie°,  lap 

.  122, 

121, 

122 

,  141, 

152, 

165,  172,  l'7 

1  . 

174 

.  175, 

7 

T  'Z 

f  K.  f  K, 

c, 

t  - 

,  2 

.  2,  2 

,  2 

,  5 

,  2 

,  2,  0 

,  2 ,  2 ,  ? ,  2 

9 

0,  2 

,  2.  0. 

c. 

1,0, 

1, 

2, 

2,  2, 

2, 

2, 

2, 

2  ,  2  , 

2.  2,  2  ,  0 

9 

C,J 

9  O  f  if 

0, 

2,  2, 

2, 

1. 

2,  2. 

2, 

2, 

c; 

‘  t 

2,  2, 

0,  7.  2,  2, 

0 

9  ^  9 

0.  7. 

2  , 

2,  2. 

2 , 

2. 

2  ,  4 , 

3, 

2. 

2 

,1.3 

,  2 ,  3 ,  2 .  3 

* 

n  1 

-  9 

,  2,  1. 

0, 

2,  2, 

2, 

2, 

2  ,  c , 

2, 

2  , 

i. 

2,  1. 

1117 

■*■9  -9  9  9 

1 

.  4, 

1  ,  Of 

^  9 

2,  1, 

1 

,  1 

,  2,  ? 

,  2 

,  2 

.  2 

*  3  ,  c 

1  ,7  /7  <7 

9  i-  f  V  9  9 

1 

0.  1 

.  *-  »  0  . 

1. 

2  ,  2 , 

2. 

1, 

3,  2. 

2, 

3, 

2. 

3,  7, 

3  ,  3  ,  3  *  ~  , 

3 

.  1 

.  3.  2, 

2, 

2,  2, 

2  , 

2, 

2,  1. 

1, 

1  . 

<■  . 

2,  2. 

2,  2,  2,  7, 

2 

.  t. 

e,  e. 

1  . 

2,  2, 

r» 

*  9 

?, 

2,  3, 

2, 

2, 

1  , 

2,  2 

,2,2,2,  2 

* 

^  7 

*  9  ( 

,  0,  2, 

3. 

2,  1, 

2, 

3. 

2,  3, 

7 

^  * 

3, 

7 

■  t 

2,  4, 

2 ,  2  ,  3  ,  2  , 

A 

.  1, 

1,  3, 

2, 

2,  2, 

2, 

3. 

2  ,  6 

.  2 

,  2 

,  2 

,  2 »  2 

7  7  r  .7 

9  9  ^  *  *9  < 

): 

END  T‘3L"S; 
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<Y> 


vi  c/j  *ti 


3  y;- 


.‘TEWIITH  fS?  )  TITLF( 'SYMBOL  -  SYV~CL 

ymbcl:do; 


ECLARE  LIT  LITERALLY  'LITERALLY'. 

lcl  lit  'rzci ARE ' , 

FOS  LIT  '(?', 

VEG  LIT  '1',  PUB  LIT  'PUBLIC  ' ,  T  LI"  'EXTER.il  AL  ' 
PRCC  LIT  'PPCCELURE ' , 

TRUE  LIT  '1', 

A  DTP  LIT  'ADDRESS', 

FALSE  LIT  ' f ' 

BUILT  $1 M  $?UN  C *  LI T  '?DH';  D"L 

IEENTSIZE  LIT  '32',  /*  MAX  IDFNTI?  IFF.  SIZE  -  1  »/ 
YARCSI7E  LIT  /*  SIZE  0 F  V A R C  STACY*/ 

PSTACYSIZE  LIT  '48',  /*  SIZE  CF  PARSE  STACKS  */ 
PASF73LSIZE  LIT  '128',  /*  SIZE  OF  PASSABLE  */ 
EASHMASX  LIT  '12?',  /*  HAS  STALL  F  SIZE  “1  */ 

MAXI  NT  LIT  '3276?',  /*  MAX  INTEGER  VALUE  * < 
rCPSIZE  LIT  '8',  /*  BYTES  USES  rOR  BCE  VALUFS  */ 
*AX$NSST  LIT  '3',  /*  MAX  LrVEL  OF  NESTS  FOR  TYPES 
MAX$ARRY$DI^  LIT  '5',  /*  MAX  ARB Y  DIMENSIONS  */ 
FOP.MMASS  LIT  '?',  /#  USED  TO  LFTERMINB  FORM  TIP" 


*/ 


*/ 


/*  FCRM  ENTRIES  */ 

CCN5  SENTRY  LIT  'l', 

TYPESENTRY  LIT  '2', 

VAC  $ENTRY  LIT  '3', 

7T*NC GENTRY  LIT  '5',  /*  NUMBER  TYPES  */ 
INTEGER STYPF  LIT  'l', 

SIGN EESEXPCN  LIT  '4', 

REAL  STY PE  LIT  '2', 

FARM  LIT  '67', 

LCLI  LIT  '79', 

PARMV  LIT  '68 '? 

/*  MANY  OF  THE  FOLLOWING  VARIABLES  CAN  BE 
EY  MAXING 

USE  OF  THE  PARALLEL  PARSE  STACKS  */ 


DC  L 

FCRM  EYTE  EXT, 

EXPOS  BYTE  EXT, 

VFCPTR  BYTE  EXT, 

TYPENUM  BYTE  EXT, 

CCNST$PTE  BYTE  EXT, 

STAHTBDOS  ATER  EXT,  /-ADD?  or  FT15  TO  ’’’O? 
TYPESLOCT  ADI R  EXT, 

VAP.$PTR  BYTE  EXT, 

VAPSBASSl(ia)  AEER  EXT, 

ALLCSOTY  ALIR  EXT, 

CON ST$I S DX  BYTE  EXT, 

LOOKUPSADDR  ADDR  EXT, 

CCNST$VALliZ(16)  EYTE  EXT, 

CONST$PM  $ S AS E ( 4)  BYTE  FXT  , 

CON3TSPN$PTR  PYTF  EXT, 


'  L  A  { 


0?  BROS-/ 
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Cn»:?l$?KSSirE(4j  BYTE  EXT, 
CURVES  "C  U  AX  t  N  SST  )  A  DLR  EX", 

/*  CAS"  STATEv.T:im  VARIABLES  */ 
CO\ST$NUU$TYFEU)  BYTE  EXT ;  /" 


ICL  BCDNUU( BCL^IZE)  BYTE  EXT, 
SC0?E(13)  ACER  ?XT  , 
SCOPE$NUU  BYTE  EXT, 
TEUPBYT1*'  BYTE  EXm  , 
TEUPADDP  ACER  EXT, 
TEv?AII'l’l  ACER  EXT, 
PRV$3 ?T$INT?Y  ADD?  EXT  J 

DDL 


/#  COvPI LEF  TOGGLES 


*/ 


GLOBAL 


V  A  p 


ES 


/*  COUNTERS  */ 

LAPLCOUNT  ADD?  EXT,  /■-'  COUNTS  NUMBER  r>p  LABELS  */ 
ALLOCS  A  EE  R  ADD?  EXT,  /*  COUNTS  PaT  ENTRIES  */ 

/*  FLAGS  USED  DURING  CODE  GENEPATICN  */ 
READPARUS  BYTE  EXT,  /*  READING  ACTUAL  PARAMETERS  */ 
PRESENT  BYTE  EXT,  /*  IDENTIFIER  IS  If!  SYMBOL  TABLE 

*/ 

SIGN  SELAG  BYTE  EXT,  /*  SET  V.  HEN  SIGN  PRECEDES  ID  *, 

/#  GLOBAL  VARIABLES  USED  BY  TE-  S  CA  !<  N  “ 15  */ 
EASHCODE  BYTE  EXT,  /*  EASE  VALUE  Of  CURRENT  TCETN 

*/ 


/*  GLOBAL  VARIABLES  USED  If!  SYMBOL  TABLE 

OPERATIONS  */ 

BASE  A DIR  EXT,  /#  BASE  LOCATION  OF  ENTRY  */ 
rASETABLEIHASHTBLSIZE  )  ADDR  EXT,  /*  HA  SET A ^  LE  ARRAY 

*  / 

3BTBLTOP  AEEP  EXT,  /#  HIGHEST  LOCATION  ni  SY.st;nT 

TABLE  * / 

S3TBL  ADDR  EXT,  /*  CURRENT  TOP  OF  SYMBOL  T A B L r  */ 
APTRADDF  ADDR  FXT ,  /#  UTILITY  VARIABLE  TO  ACCESS 

SBTBL  */ 

AEDPPTR  BASED  APTRADDR  ADDR,  /*  CURRENT  2  IYI7S 
POINTED  AT  */ 

(BYTEPTR  EASEL  APTRADDR  )  ( 1 )  BYTE,  /*  CURRENT  -YT v 
POINTED  AT  #/ 

PRINTNAMS  ADDR  EXT,  /*  SET  PRIOR  TO  LCCHU?  CR  ENTER 

*/ 

SYBASE  BYTE  EXT,  /*  HASH  VALUE  CE  AN  ITFNT IF  TER  */ 
LAST$S3TBL$ID  ADDR  EXT,  /*  HOLD  PFEVIOUS  3*SE 
LOCATION  */ 

PAR  *  NN  UMLOC  ADDR  EXT,  /*  STORES  POINTER  TO  FAR  AM 
LISTING  */ 

SBTBLSCOPE  ADD1’  EXT,  /*  BASE  OE  LAST  ENTRY  IN 
PREVIOUS  ELOCX*/ 

SP  BYTE  EXT, 

UP  BYTE  EXT, 


120 


PARENT;*  IOC  (  FSTACKSI  ZZ  '  A  Fir.  IX- . 

CA?.AVNUV  BYTE  IX T  » 

PFT.ADDR'PSTACXSIZE)  ADD?.  EXT. 
EX?RE5Si5l?(PST.»  CHS  IZE  '  BYTE  E  Y  T , 
FOHrSFIELLfPSTACKSIZi)  BYTE  EXP, 

VAR (PSTACKSIZE)  BYTE  EXT, 

VARC  (VAF.CSIZE  )  PYTE  EXT, 

EASE(?STACKSI7S)  EYTE  EXT: 

/#  DECLARE  rXTEPN'AL  PFOCEDU°ZS  ,  FOUND  IT  3YSF"S  */ 

GENERATE:  ?DOC < OEJCODE  )  EXT  ? 

PCI  CEJCOEE  EYTr  5 
END  GENEPATE? 

2 op. op.  :  pone  (ERF CODE)  EXT? 

ECL  ERRCOEE  ADI F  ? 

FND  ERROR? 

MHVT:  PF.OC  (SOURCE, DESTIN  ,L)  EXT? 

ECL  ( SOURCE, DESTIN)  ADER? 

DCL  L  BYTE? 

END  MOVE  ? 

MCN3:  PFCC  EXT? 

END  MON 7? 

G7NADDP  :  °ROC(A,B)  "XT? 
rCL  A  BYTE ,5  All  a? 

END  GENADDF.  ? 


f  #  *e  #  #  if  j*c jjc  #  #  #  # #  #  #  #  V  v ** #  j;c  s|<  j;: 5^ s;? >;c  *«  Jji  s;:  j.c 

-  S  ET  £  A  TDR  ES  3  $  P  TR  -  THIS  PROCEDURE  STTS  A  * 

*  POINTER  TO  A  SPECIFIC  LOCATION  IN  THE  v 

*  SYMBOL  TABLE.  * 

if  if  #  if  if  if  #  if  if  * if  #  *  #  He  if  *  H*  H«  H=  * :)e  H*  :f  if if  jjs  H«  H= He  H=  *  if  >;=  He  He  H!  *  if  H=  »;r  He  He 


SET  AD DP PTE  :  PROC (OFFSET)  PU3  ? 

DCL  OFFSET  BYTE? 

APTRAIDP  =  BASE  +  OFFSET? 

END  SETADBRPTR? 

y  if  if  if  H=  if  He  H«  if  if  <!  H< H<  Sr  H«  V  H<  He  H*  H*  X<  *1- Ht  H*H«  H:HeH*H<  H*  H»  H«  H=  H«  H«  H*  H«  Hs#He  #  S*  V  H:H:H* 

*  SET$PAST$PR I NTNAME  -  THIS  PROCEDURE  SETS  * 

*  APTPADDF  TO  A  LOCATION  IN  A  SYMBOL  TABLE  * 

*  ENTRY  TnAT  IS  PAST  THE  FNTRY  'S  FRlNmNAME  * 

*  (WHICH  IS  OF  VAEIAPLE  LENGTH )  .  * 

Jj2  sj?  j„{  3j<  ^,2  ;,S  >jt  j,t  y  jJj  >jc  Sj<  jjj  31,?  >({  J^C  jJC  >JS  3{c  .  ,1  *,<  >(C  ?(!  A*  *fi  >1?  'i*  V  v  V  *r  *r  *i*  *i*  y 

STTSPASTSPN:  PpOC(OFFSET)  PUB? 

DCL  OFFSET  EYTE? 

CALL  SFTADDRPTR(e)? 

CALL  S  ETA  DERPTP(PYTE?TR  3 )  +  OFFSET  1? 

END  SET$PAST$pN? 

!  if  He  He  if.  if  if  if  if >}c  if  if  if  if  H=  He  ^  H=  if  if  He  if  He  if  if  # V  if  ^  if  if  #  #  He  #  • ':  s|: H=  He 

*  CALC^VA PC  -  THIS  PROCEDIRE  DETERMINES  THE  * 

*  LOCATION  OF  AN  IDENTIFIER  PRINTNAME.  * 


1?1 


CALCSV  ARC:  ?3CC(A)  »DLR  PUBS 
T  C  L  A  BYTE? 

R  Z  T r;  R  :j  '*  A  R  '  A  }  +  .  Y  A  A  C  ? 

Z'JD  CALC$VA?C: 

/  * St  *  *  #  *  St  sjt  *  St  S' S'  S:  ft  S'  V  S:  <t  aft  *c  #  -  St  St  St  St  S'  S=  St  St  St  St  St  St 


*  S  ZT  4  LOCKUP  -  IF  I S  PROCEDURE  IS  UTILIZED  TO  * 

*  7IN^  THZ  HASH  ,TALTJZ  CF  *N  IDENTIFIER.  # 

St  St  St  S;  St  >S  St  St  St  :;t  S«  St  St  St  St  s:  s=  St  S«  St  S«  S!  S'  S= ":  St  s  ft  S<  S=  St  St  V  S'  St  St  st  v  st  s'  St  St  St  s,t  St 


*!•  ' 


SITL^CSl’P:  ?  P  C  C  f  A  )  PUE  5 
ECL  »  bytz: 

?0 I  NTS AME  =  CALCi'/AHC  (A  )  ; 

SYMSASH  =  HASH ( A  ■  »  /*  HASHCOTZ  CF  PM  */ 

END  SFTLCCKL'P; 

/  :Jr  :*S5,s  sjs  #  :|r  ?:  :;s  ^  j;;  :;c  ;Jc  / 


/st  TNTZHSLITKS  -  THIS  PROCEDURE  INTERS  IN  TH?  */ 

/s«  NvXT  tquR  BYTES  OF  THZ  SY.XBCL  TABLE  TIE  */ 

/*  COLLISION  FIZLL  AN?  THE  PREVIOUS  SVM30L  */ 

/*  TABLE  ENTRY  ALLRISS  FIELL  FCR  TEE  NEXT  */ 

/*  SYMBOL  TABLE  ENTRY.  (  BOTH  IN  ALDRISS  VAR  )  */ 

/  S«  S-‘  St  S«  st  st  S«  st  st  st  St  S«  st  S'  st  st  st  st  St  S<  St  S'  St  St  St  S*  St  St  St  St  St  St  S'  S'  St  St  S'  S=  St  S«  St  S'  St  St  S«  St  S«  / 

ZN TER $L INKS  :  PROC  PUE; 

BASZ,  APTPADDR ,  5BT3LSC0PE  =  S3TBL  J 
SCn?E(SCO?E$NUM)  =  srtbl; 

AEER^TR  =  HASHTA ELE  < HYDRAS  H  )  ‘ 

CALL  S  ZT A  DDPPT? ( 2  )  5 
ADDopTR  =  PRVSSRTSENTRY; 


?RV$S3T$ENTRY  =  BETEL; 
HASHTABLE (SYMEASH )  =  BASE? 
END  INTERLINKS? 


It  St  S'  St  st  S«  S'  St  S=  st  St  S'  S'  S=  S<  S'  st  S'  S'  S'  S«  St  St  5 


*  CE7C2$PRINT$NAM  -  THIS  PROCEIURE  DOES  A  * 

*  CHARACTER  TO  CHARACTER  COMPARISON  ^ITaZZN  * 

*  THE  CURRENTLY  RECOGNIZED  IDENTIFIER  AND  * 

*  SYMBOL  TABLE  ENTRIFS  OF  THZ  SAME  HASH  VALUE.* 

S«  S'  S'  S«  S«  S'  S'  S'  S'  S'  St  S'  St  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S«  St  S'  S«  St  s;t  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  St  »i=  S'  St  S'  S'  S'  sit  / 


CEK$RRT$N AME :  ?RCC(A)  EYTE  PUB • 

/*  A  IS  OFFSET  FROM  BASF  TO  PR  IN  TN  AMI  -/ 

EC  L ( N  BASED  PR  I  NT  NAME ) ( 1  )  BYTF  ? 

I  CL  ( LEW , A )  EYTE: 

CALL  SFTADCRPTR{ *  )  ? 

IF  (  IFN  :=  BYTFPTR ( d )  )  =N(3)  THEN 
DC  WHILE  (EYTEPTR(LEN )=N (LEN  )  )  ? 

IF  (  LEN  :=  LFN-1  )  =  0  THEN 
RETURN  TRUE? 

end; 

RETURN  FALSE? 

end  chxspp.?$name; 

##  # #  >;*  # 3{s  #  :{: #  >;«  # ;Js  jjc  # z’jl  sjc  sjs#*;*  / 

/*  LOOKUP$PRINTNAMF$IDFNTITT  -  THIS  PROCEDURE  - > 

/*■-  IS  PASSED  THE  LOCATION  OF  AN  IDENTIFIER  IN  */ 

/*  THE  PRODUCTION  RULE,  AND  ITS  TARGET  ENTRY  */ 

/*  TYPE.  IF  THE  IDENTIFIER  IS  FOUND  WITH  THE  */ 

/#  CORRECT  TYPF  THE  ?°OCIDURE  RETURN  TRUE,  #/ 


12? 


/*.,.  .Z.p  4...  |A  1 5.4...  IS  HIT  URN  SI .. ..  *  / . 

LooK:T?ip\nr :  p^oc( » f idsimipy)  rYT-  ?u? 

1  CL  (  A  ,  II  $E.N  TRY  ^  BYTE  5 
CALL  S  FTLCOXUP ( A ) 5 

PA  5 1  =  FA  SHTAPLF [ 3YMHASF  ^ J 

2  r  y  H T  L  E  ?  A  S  2  <  >  0  ; 

CALL  3ETADBRPTF ( 4  )  J 
IF  ((  PYTFPTR  ( 0 )  ANT  ?^VVAS7  i  = 
IF  CHK$?RT?NA ME (6 )  THEN 

Ir  ’((BASE  <  SCCPS(e))  C?  (BAS' 
SCOPE(SCO?F$K*JM-l)  ) 

OR  ((irsSNT^Y  =  TYPZSSfoTRY  i  A“ 
SCOP*(SCC?E$NUM)  ))  ) 

T^FN  do; 

LOOKUP  $A  r  ER=P  AS  2 ; 

RETURN  TRUE! 

END ; 

CALL  S ETADIRPTR ( 0 ' ; 

rase  =  aderptr; 


RETURN  FALSE? 

END  LOOSU?$?N$ir; 

/ if  >;s  s|< ¥■?#" # s,'i $  w if  *fi 5,C  >Jl  5|%  ?J«  v  v  v  5,5  J,i  i,C  *i»  v  «.*  *t«  »*»  *\*  v  v  *  *  *i*  »>»  ^i*  »■  *  '  *  * 

/if  r  j; v x T S  -  TFIS  PROCEDURE  ENSURES  ??.«  I  THE  */ 
/if  SYMBOL  TAELS  ZN^FY  A3CUT  TO  RE  7 '■  T E ?. 2 L  -  / 

/*  VILL  NOT  EXCEED  TEE  UPPER  LI^IT  05  :p;7  -  ' 

/*  AVAILABLE  SYMBOL  TABLE  ADDRESSES .  *' 

/*  TFE  PARAMETER  IS  THE  3YTEC0UNT  OF  THE  */ 

/*  ENTRY  TO  PE  ENTERED .  */ 

/  if  :Js  *  *  s[;  $  >j«  if  if  if  if  *  if  if  if  if  s;?  if  jJ;  if  if  if  tjj  #  #  if  if  if  >,>:  if  i,-.  #  if.  #  v  v  »{•  *»»  »1»  '1*  *1*  •'*  '1'  V  * 

LIMITS :  PPOC(COUMT)  PUR; 

tcl  count  byte; 

I T  SETBLTOP  <=  CSBiEL  +  COUNT)  THEN 

do; 

call  epror('to'); 

CALL  M0N3; 

end; 

end  limits; 

/  it  ^iif  if  if  if  if  if  if  if  *  jjs  #  *  **  if  $:):  if  #  if  if  *  #>;-.#  «  si:***;:  Jfcslss;:  **  <««<« 

/*  FNTER$P?INTNAMFdBFNTlTY  -  THIS  PRC  C  El  UP.  E  */ 
/*  LOADS  TFE  SYMBOL  TABLE  WITH  ,P'-'E  70LLCWIN  0 :  *.■ 
/*  1.  COLLISION  FIELD  */ 

/*  2.  PREVIOUS  SYMBOL  TABLE  ENTRY  ADDRESS  */ 

/*  3.  FORM  OF  ENTRY  (  PRESET  BYTE  "FO^M"  )  */ 

/*  4.  TEE  LENGTH  OF  THE  PRINTNAME  IN  ONE  BYTE*/ 
/*  5.  THE  PRIM  THAME  CHARACTERS  */ 

/*  PARAMETER:  PRINTNAME  IS  SET  PRIOR  TO  CALL.  *, 

/ififififififififififififififififififitififififii  if  if  if  if  if  if  ^  *s  if  i: *  #  #  *  X  if  /•  Jfc  i-  : 

ENTEP$?N$ID:PROC  PUB? 

DCL  I  byte; 

ECL  (N  BASED  PRINTNAME ' f 1 )  BYTE? 

CALL  L IM I TS ( I : =N ( 0 ) *7 ) ; 

CALL  ENTERAL  I NKS  J 


"fo^m"  )  */ 

IN  ONE  BYTE*/ 
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CALL  S  ETA  DDRPTR  ( 4 )  i 
EYTEPTR ( ?)=  FCRv: 

CALL  ST?»DDP.PTS(P); 

P YTEPT? (•?  )  =  SYMFASHJ 
CALL  SSTADDHFTH^e)  ; 

BYTFPTF ( ?  )=N ( 0 ) ; 

CALL  V0VI(?PINTNAM?*1 ,S?TBL+? .N ( 2  5 ) » 
LAST$S  BTBLS  I  L  =  SBTBL-; 

S3T3L=S3T3L+I J 
ENT  ENTER  $PN  $ID  # 

/o»  *'•  *'/  >'»  *■«  «i»  »'*  •*»  «V  «'•  •.'<  •>(  *•«  *».  .u  «>•  «i>  «<»«•»  .■<  *'» 

*1*  1«  v  'C  *1*  'l*  '»»  V  V  *1»  V  »1‘  V  "V  'I'  V  *1»  'I*  *V*  'I' 


*•*  »•*  «•»  *v  %*• 

- 1*  'l*  V  'I' 


,.r,! 


V  *1*  'I'  'I* 


/*  FNTE?  $  VAFI A3LF$I DTNTI TY  -  THIS  PROCEIURE  */ 

/*  CALLS  ENTERiPN^ID  TO  LOAD  TUE  SYMBOL  TAP LZ 
/*  ENTRY  CURRENTLY  EEINC-  SCANNED .  IT  ALSO  */ 

/#  GENERATES  TEE  ENTRY'S  "FORM"  BY  RRP  70  RM  NO 
/*  A  BOOLEAN  'OR'  OPE^ATI'IN  ON  T'-F  ID  GENTRY  "/ 

/*  *  NI  TEE  PARAMETER  " k" .  */ 

j  V  V  5,5  J,S  5,5  *|S  J,{  Jj{  5,5  5,5  5,5  5,5  5,5  5(5  5,5  5,5  5jC  5,5  5,5  5*,5  5,5  5,5  5j5  5,5  5,5  5,5  2j*  5,5  >J5  5,5  5,5  5,5  3,5  i|5  5,5  3,5  5.5  5,5  5,5  5,5  5,5  5*5  5,: 

EN?EC$VA?$IB:  PPOC ( A , p , I D AEN TR Y )  PUR ; 
rcL  (a ,e , id  Gentry )  byte; 

IE  LOCEU?  $?M  $1 D( B , ID$EN  TP Y  )  TEEN 

d°  ; 

PRESENT  =  TRUE? 

RETURN ; 

end; 

/*  ELSE  El  TEE  VAR  NAME  */ 

PRESENT  =  EALSE? 

FORM  =  A  OR  I DSENT^Y  > 

CALL  EMTFR$PN$ir; 

IE  ID  SEN  TRY  =  VAR  SENTRY  THEN 

do; 

CALL  LIMITS (4^  ? 

VAPSBASlK  VARSPTR)  =  S3T3L  5 
SRTBL  =  SBTBL  +  45 

end; 

END  TNTER i D> 

/  *f  #  * >!i  #  >!«  >J« s£  #  V  K~  #  sjs  #  #  s£  Sis  V  V  5?  W  s}t  #  ^  #  &  s,t  sit  Sjc  Hf : :<  s.t sit  s;t  s,f  s;<  J.t  t 

/*  SETSLABEL  -  TEIS  PROCEDURE  ASSIGNS  A  LABEL  */ 
/*  TO  THE  CURRENT  DECLARED  LABEL  AND  INCREMENT-/ 
/*  TEE  LABELCOUNT  (  NEXT  TO  ASSIGN  ).  */ 

/  *  s£  i,;  jjt  #  #  sjc  *  *  if  #  #  #  #  #  y,;  ■%  sjt  £  *  j[t  j[t  £  *  *  *  j;t 5;:  :|t  :|c  # si; : 

STT$LA3EL:  ?ROC  PU3; 

ADD°PTP=LABLCOUNT » 

LABLCOUNT=LABLCOUNT+1 J 

end  setslabel; 

s;t  V V  Sit #  Si! s*  s|c >;t  s(:  s;t  s£ >lt  * 

/*  ENTERSLABEL  -  THIS  PROCEDURE  LOADS  A  LABE 
/*  ENTRY  INTO  THE  SYM30L  TABLE.  STMHASE  AND 
/*  PRINTNAME  MUST  3FT  PRIOR  TO  CALLING  */ 


:/ 

■/ 


»;ts;t>;t5;:s;:  / 

T  5*5  / 


/  *  *5^  5^  5{r^^  5^5^  5*^  3^<t  5}t  5^5^  5;«5;£  ij?  #  3,5  5^5^  ^5  5j55^  ^5  *  5^  5*5  £  5^  ^5  >;?  jje  5|5  5^ 

ENTERSLABEL:  PROC  PUB; 

CALL  LIMITS (2)  ; 

A PTH A DDR  =  SBTBL; 

CALL  sft$labzl; 


*  Sit i;: / 
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sbtpl  =  5imiL+:; 
z\'D  enter slarel; 

/*■*  *•»  »•«  ><•  *•»  .<•  %>-  «v  «'»  *'*  v-  «v  *•»  »*»  jJj  *'*  »•»  *•»  *•»  »•»  >i<  «•»  j.  o.  «■«  »>.  ,<<  .1.  .  . 

«I«  •)*  *1*  «|>  <)•  V  »,»  »,»  V  V  V  V  V  v  V  'I*  >  <  '  'I*  »1*  Y  Y  *1*  Y  ■*»'  Y  V  'i»  ».»  Y  "i»  Y  *r*  *»•  Y  *,•  Y  v  »,•  »,»  » ,  • 

*  ALT??  £PR  T4LCCATI  C.<5  -  THIS  ?F.CCZDUr I  HZ-  - 
*  ALLOCATES  PFT  LOCATIONS  HOP  ALL  FUNCTIONS  * 

*  AND  7  CP.  V-’ARD  PROCEDURES  AN  I  THEIR  ASSOC  I ATFI* 
*  FORMAL  PAPA N  ZTIRS  .  * 

*#*«#**  Y  Y  Y  Y  ^  Y  y  y  V  -i'  'Y  ■"'1*  y  5^  Jr  *r  5^  v  '«•  *I»  ^  i*s  v  sis  s|i  ij;  sjc  >|i  sjs  j]  -  -!» 

ALT7PSPRTSLCC :  PPOC  FU3 ; 

CCL  (I.P)  byte; 

CALL  SETSPASTSPM^?)? 

P  =  3YTIPT?.  (  ? )  5 
PAPANNUNLOC  =  APTRAELP; 

ro  1  =  1  to  f; 

CALL  STT$PAST$PN(S) J 

APTPADD7  =  ADDRPTR  -  ((I-1)*3)J 

DO  CASE  ( PER ( EYTEPTR ( 0,2)  AN L  FOF^ASK ) : 


/ 


ALLC$0TY 

=  i; 

/* 

SCALAR  */ 

ALLCSCTY 

=  2; 

/* 

INTEGER  * 

ALLCSQTY 

=  c; 

/* 

REAL  */ 

ALLCSCTY 

=  1; 

/* 

CHAR  */ 

ALLCSQTY 

=  1; 

/* 

BOOLEAN  * 

/ 


end:  /*  OF 

APTPADDR  = 


■/ 


I? 


6; 

1 


RYTEPTR (a) ; 
allc$cty; 


CASE 

APTPADDR  + 

ADDPPTP  =  ALLOC S A  DDR  5 
APTRAEER  =  TEN"  PAD  DR  1 » 

A?  TP.  A  DDR  =  APTPADDR  + 

APTPADDR  =  APTPADDR 
AECRPTR  =  ALLOC* ADDS; 

ALLOC$ADDR  =  ALLOC$ADDP  + 

TEPPADDR1  =  APTPADDR  *  4J 
END? 

END  ALTEP$PPT$LCC; 

f  #  ste  $  #  *  >;*  5j5 lit  #  J|<  >;«  X'  >i«  Sr  #  *  >r  *  X=  #  >1:  >!:  s*  Jjt  jJ:  5;:  s;:  *  j|«  s|t  j,s  s;s  s;: 

*  E.N TZ? $ SUBP OUTI NE  -  THIS  PROCEDURE  LOADS  A  * 

*  SUBROUTINE  ENTRY  IN  THE  SYV30L  TABLE.  THE  * 

*  PARAMETER  NUKBEP  LOCATION  IS  STORED  AND  T77,  - 

*  SCOPE  LEVEL  IS  INCHIKENT3I  BY  ONE.  * 

Y  YY  Y  ^  ^  ^  ^  'I'  *1*  ^  ^  ^  'I'  2js  sjs  »»S  s|s  Y  Y  Y  Y  Y  Y  Y  Y  V  Y  V  Y  Y  Y  j 

ENTER SSUPPTN  :  PP.OC  (A  ,?  ,  ir$ENTRY  )  PUB  J 
DCL  ( A  ,E , IBSEN  TRY )  BYTE; 

CALL  ENTEP$VAR^ID(e,  SR,  ID$  E.N  TRY  )  5 
IF  NOT  PRESENT  THEN 

do; 

CALL  LIKITSU); 

PARAUNU^LOC  =  SBT^LJ 
SB TEL  =  SETBL  +  3; 

CALL  SET$PAST$PN(10); 

ADDRPTR  =  ALL0C$ADDR;  ALLOCABLE  =  ALLOC  SA 
CALL  SET$PASTiPN(14) ? 

ADDRPTR  =  LABLCOUNT5 
LA^LCOUNT  =  LABLCOUNT  +  2, 

SBTEL  =  SBTBL  +  €1 
IE  IDSENTRY  =  FUNCSE.nTF.Y  THEN 


DP  +  2 
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do; 

S^TBL  =  S3T3L  +  i; 

fnl  ; 


fnd; 

FIS F  D o;  /*  FOBV'APr  FUNCTION  */ 

CALL  SET$PAST<?N ( 14  )  J 

IF  ID$ENT?.Y  =  EUNC$ZU?EY  THEN  TEV?.4DDR1  -  APT?. 


ELSr  TEMPA  DDK1  =  APTRACDR  +  2J 
CALL  SETSPAST$PN(1P)  ; 

AEDPPTR  =  ALLCCiADLP; 


ALLOC  S  AD-DR  =  ALLOC $AET3  +  25 
CALL  ALTFP  $r RT^LOC  5 

end; 


PARMNUMLOC(MP)  =  EASE  5 
SCO?F(SCCPE$NUM  :=  SCGPF$NUM*1  )  -  SBT^L 
END  FNTFP iSUBPTN 5 

/  *v  »•'  •'*  »•«  v«  .*•  v»  »i»  j.  ,<«  .c  «•»  a.  ,i<  «ij  .■»  4#  «>#  .i«  .•»  .i<  *>#• x  »•«  J#  x 
/  'i*  i  *r*  »(•  v  v  A*  *r  v  v  v  t  V  v  v  *t  v  v  v  »i*  *i*  *r*  *i»  v  »i*  **1'  v  *»•  »■*  •»•  -■*  v  *»*  *r 


X  X 


/*  LCOKUPSONLv  -  THIS  PROCEDURE  IS  PASSET  THE  */ 


/*  POSITION  OF  A  IDENTIFIER  JUST  SCANNED  IN  * 
/*  THE  CURRENT  PROEUCTION  (  S?  ,M P.MPP1  )  AND 
/#  0 FT UP  NS  TRUE  IF  THE  IDENTIFIER  IS  FOUND  IN 


/*  THE  SYMBOL  TABLE.  */ 

/  *  #  #  *  jjj  *  *  #  #  #  if  %  * £  # ![;  #  *  s!*  *  *  *  #  *  #  £  %  #  * #  *  « *  *  #  *  *  s;-. 

LOOKUPSO.NL Y :  P«OC(A)  3YTF  PU35 
LCL  A  PYTE5 


*5|: 


/ 

/ 

*/ 

V*  XX  / 
».•  *i*  / 


CALL  SETLOOKUP(A); 
3ASE=HASFTA3LE(  SYME  ASE  )  5 


DO  VHILE  BASE  <>  J? 

I?  CFKSPR  T  $N  AME ( 6 '  THEN 
DC  ■ 

lookup$aedr=easf; 


RETURN  TRUE; 


end; 

else  do; 

CALL  SETALDRPTR  f  0 ) ; 

B.ASE=ADD?.PTP; 

end; 

ent; 

RETURN  FALSE; 

END  LO0KUP$0NLY; 

SMS###  / 

/*  THIS  PROCEDURE  CONVERTS  A  REAL  */ 

/*  NUMBER  IN  THE  PROGRAM  TO  A  BCD  */ 

/*  REPRESENTATION.  */ 

jMsifs^v******  f 

CONVPTBCD:  PROC(A,B)  PUB »  /*  A=S?/MP/M.PP1 ,  3=PCS/NF 
DCL  (I  ,J,DFLAG,EFLAG  .SFLAG.A.B)  BYTE; 

DCL  (N  BASED  PPINTNAME )  ( 1 )  BYTE* 

DCL  ( EXP0NLO0P , EX PS  I GNLOOP  )  LABEL? 

CALL  SETLOOKUP(A) ; 

/*  INITIALIZE  VARIABLES  */ 

sflag=false;  eflag=true;  dflag=true;  1=1; 
do  j=e  to  7;  bclnum(j)=0;  end; 
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J=0:  EXPCN  =64!  /* 

/'*  REMOVE  LEADING 
Pn  fcHIL”  ( (  N  ( I  )  - 


•  +ee 

ZEROS 
'0' ) 


*/ 

*/ 

=  a); 


1=1+1 ; 

IF  I=(M (z)+l)  THEN  goto  expoklc-op; 
end; 

/*  LOAD  BCDNUM  V.  I TF  SIGNIFICANT  DIGITS 
rc  WHILE  ( ( N  ( I  )  -  '(?'  )  <=  9  CR  N(l)  = 
IF  M ( I )  =  '  THEN 

ro;  fflag=fal?e; 

I?  I  =  M (0  )  THIN  GOTO  EXPONLCO?; 
1=1+1? 
enl; 

FLS  T 

; 


*/ 


DO  WHILE  J  =  2  ANT  IFLAC  AND  ''NT)  -  'C'N 
FXPON  =  EXPON-1 ? 

IF  I  =  N(0)  THEN  GOTO  EXPONLOOP? 

I  =  I+i; 

end; 

IF  J  =  (  BCrSIZF-1  )  THEN  GOmC  ?X?C.«LOC?J 
I?  I FLAG  THEN  /*  FIRST  BCD  PAIR  */ 

do; 

BCDNUM  (J  }=TJOL(  (N(I  )-'3 ' )  ,4); 

cflag=false;  i=  i+i; 

IF  FFL AG  THEN  FX?ON=EXPCN +1 ; 

end; 

7T  c  v 

do;  ^ 

BCDNUM  (J)=PCDNUMJ)  +  (N  (I  )-'3'  '; 

J  =  J  +  1;  1=1+1; 
del»g=true;  if  eflag  then  expcn=expcn-i 
end; 

IF  I=(N(e)+l)  THEN  GOTO  EXPONLOOP; 

end; 


end; 

EXPCN  LOOP : 

IF  N ( I )  =  "E "  THrN  FFLAG  =  FALSE? 

IF  I  =  (N (3 )  +  1 )  THIN  GOTO  EXPSIGNLOn?; 
IF  EFLAG  THEN 

do; 

DO  WHILE  N ( I )  <> 

EXPON  =  EXPCN  +  l; 

1=1+1? 

end; 


1=1+1; 

end; 

DO  WHILE  I  <  ( N (3 ) +1 )  AND  (X(I)-'d')  <=  9  ? 

1  =  1+1? 
end; 

IF  TYPENUM  =  REALTYPE  THEN  GOTO  EXPSIG:iiCOP ; 
/*  N(I)  =  e  */  i  =  i +1 ; 

17  TYPENUM  =  SIGNEDSFXPON  TH*N 
do; 


if  v  ( : )  =  2r then  sflac  =  true; 
i  =  i*i  ; 

7  ‘j  D ; 

I?  I  =  ,N  ( 3 )  + 1  TTJFN 

ro; 

CALL  ERROR  (  'EE' )  ; 

RFTU^N* 

end; 

D^LAG  =  o; 

ro  j  =  i  to  n ( a) ; 

LFIA r  =  (IFLAC-*10)  +  (N-IJ)-'P'); 

end; 

IF  S FLAG  THFN  /'*  EXPONENT  CALCULATION  */ 

EXFON  =  sxpon-dflag; 

ELS17  EXPO  i  J  =  EXPCN  +  DEL  AG  J 
FXPSIGNLOOP: 

BCLNUM fBCDSIZE-l)=ROL(B,?) ;  /*  SIGN  OF  NUMBER  *  / 
IE  EXPON  >  127  THEN 

do; 

CALL  ERROR ( 'EE'): 

return; 

end; 

ELSE  RdNUyf  ECL  SIZE-1  )=ECEN'UK(RC  LSI  ZE-l)+EX?ON; 

end  convrtbcd; 

/  #  K>  #  #  =  #  >;:  *  *5  *  *  *  J}!  :;s  if  if  #  #  *  #  *  *  if  s;e  #  s;t  #  if  *  jjc  if  if  y.s  a;: sjs  *  *  &  if  if  / 

/*  CCNVERTI  -  THIS  PROCEIURE  IS  PASSER  "a”,  TFT*/ 
/*  LOCATION  OF  A  CONSTANT  IN  THE  PRODUCTION  */ 

/*  ANC  •’7"  THE  'SIGN'  OE  THE  INTEGER .  THE  */ 

/*  FUNCTION  GENERATES  A  SIC-NEL  16  SIT  RZPRE-  */ 

/#  S^NTATION  OF  THE  NUMBER  AND  RETURNS  IT  IN  */ 

/*  AN  ADDRESS  VARIABLE.  */ 

/  #  #  #  s|t  jjs  )j«  s|<  $  #  if  j|«  »;« jje  if  if  if  if  if  #  if  if  if  #  if  if  #  #  if  #  sjs  if  if  if  s;s  if  j|s  >!?  if  #  if  if  #  >j!  if  s;s  sje  it  #  / 

CONVEPTI:  PR0C(A,3)  ADDRESS  PUB; 

DC  L  (I, A,*)  byte; 

DCL  (N  BASED  PRINTNAME ) ( 1 )  BYTE; 

DCL  NUM.  addr; 

CALL  SETLOOXU? ( A ) >  NCK=0» 

DO  1=1  TO  N (0) ; 

I?  (MAXINT/10)  >=  NCM  THEN 

do; 

IF  (MAXI  NT/10  )  =  NUM  AND  <'N(I)-'0')  >  17  THEN 

do; 

CALL  ERROR ( 'IE ' )  J 
RETURN  NUM; 

end; 

NUM=(NUM*10)*(N(I )-'0')? 

end; 

ELSE  do; 

CALL  ERROR (  'IE  '  )  » 

RETURN  NUM; 

end; 

end; 

IF  B  =  POS  THEN  RETURN  NUM ; 

IF  NUM  =  MAXINT  THEN 
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E  0 : 

CALL  TIRO'S  ("IF'); 
RETURN  NUVJ 


end; 

return  (  -  NCM); 

END  CONVZP.TI; 

/*  CONVERTS  CONSTANT  -  THIS  PROCETURE  IS  CALLED  */ 
/#  WITH  TYPENUM  SET  BY  THE  CALLEP.  THE  NUMBER.  */ 

/*  MUST  ?F  POINTED  TO  BY  “S?"  IN  T - E  FEODl'C-  */ 

/*  TION.  T^E  PROCEDURE  RETURNS  WITH  "CONSl’S  */ 

/*  NUMSTYPS”  AND  "CONST$VALUE"  SET  WITH  THE  */ 

/*  NUMBER  IN  ITS  INTERNAL  FORM.  */ 

/  #  #  #  #  « a;t  a;:  a^  a*  #  #  Sts  ajc  #  afc  a):  as  aS  ###*#»;<#  a*##  a;:  a;«  aS  a;:  if  if  if  it  if  if if  *: if  if  :;s a.:  if  *  / 

CON  V?.T$CON  ST :  PROC(A)  PUB;  /*  A=P0S,NFG  */ 

DCL  A  BYTE, I NT$ADDR  ADDR  ; 

IF  TYPENUM  =  I NTEGZRSTYPE  THEN 

ro; 

INT$ADDP=CONVFP.TI(SP,A); 
COVSTSNUM$TYPI(CONST$PTa )  =  1 NTEGER STYPE? 
CCNST$?TR=CONSTS?T?.+i; 

CALL  MOVE(  .  INTSADDR  ,  .  COASTS V ALU* (  CON  STS  I  ND 7. 
C0NSTSINPX=C0NSTSINDX*2;  - 

end; 


ELSE  do; 

CALL  C0NVPT3CD ( S  ? ,  A  ) 5 
CONSTSNUf*$TYPE(CCNST$PTR)=P.EAL$TY?E; 
CCNSTS?TR  =  CONSr'$DTR+i; 

CALL  MOVE(  . 3CDNUM , .  CONS  I SV  A  LUE  ( CO  NS  T'S  IN'  D 
CONST$INDX=CC.NSTiIMrXJ-BCDSIZE; 
end; 

END  CONVRTSCONSTJ 

/  5{S  ❖  #  s(s  5{*  *  if  if  Jjt  aj«  ajs  sS  s}t  if  ajc  if  if  if  if  if  if  sit  ajc  if  if  aSajc  if  #  s;c  a|!  sjs  if  a,-s a',:  if  a;: if  if  aS  a;:  a 


'  .^CDSIZE 


/*  ENTERSCONSTA.NTSNUUBZR  -  after  THE  NEXT  ENTRY5--/ 
/*  HAS  HAD  ITS  LINKS  ENTERED  INT*  THE  SYMBOL  */ 

/*  TABLE,  THIS  PROCEDURE  ENTERS  THE  CONSTANT  */ 

/*  VALUE  INTO  THE  SYMBOL  TABLF  AND  SET  THE  */ 

/*  ENTRY'S  "FORM”  TO  THE  APPROPRIATE  TYPE.  */ 

/  >£  >S  :S  aS  *  aS  a*  aS  :S  a;:  aS  a,S  *  a-,:  a,S  $  aS  aS  aS  a*  *  #  aS  #  :S  aS  a*  aS  aS  *  aS if  aj:  a);  aS  a;:  ;S  a;:  aS  aS  aS  af:  :S  aS  :S  a|;  a;:  j 


I N  TP  $  C  ON  S  S  N  UN! :  PPOC  PUB; 

C0NSTSPTR=C0NSTSFTR-1 J 

IF  CON  ST$MUV$TYPE ( CONSTSFTR )  =  INTEGERTYPE  TEEN 

do; 

CALL  SETADDP.PTR(4) ;  BYTEPTR(2)=e  OR  CCNSSENTFY  J 
CALL  LIMITS(2);  COfiSTS  INDX-CON  ST$  I N  EX-2  ? 

CALL  HOVF( .CONSTSvALUZ(CONSTSINDX  ■  .S3TBL .2) ; 
SBTBL=SBTBL+2; 

ent; 

ELSE  do; 

CALL  SETADDRPTR (4)5  3YTEPTR ( 2 ) =10"  OR  CONSSINTRY; 
CALL  LIMITS (iOLSIZE) J  CONSTS INDX=CCNSTS I  NIX-BODS IZE; 
CALL  MOVE (  .C0NST$VALUF{C0NS't'SINDX'i,SBTBL,3CDSIZE); 

sbtbl=sbtbl+bcdsizf; 

end; 
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E T  ENTRS CCNSiN  Uv  5 

j  vv  vv#  v  •<*  v n*  v  V »i*  V  »»*  *i*  V  v  v  »i* 

/#  ENT~?$ST?ING  -  AFTER 
/*  AH  E  ENTERED  IN’ TO  THE  SYMBOL  TABLE, 
/*  PROCEDURE  LOADS  ANY  1DENT I  FIEF  ALC.'J 
/*  ITS  LENGTH.  (USED  WITH  CONSTANT  ST?. 
/#  AND  CONSTANT  I  TENT  IE  I IRS  )  */ 

y  T  V  'i*  •««  V  5,*  «!*  '<•  v  v  '1*t  v  v  'I* 


*i»  V  'i'  'i*  / 

F  "LINES"  AMD  "ECFV"  * / 
this  */ 

G  WITH  / 
INGS  */ 


v  n*  'i*  '»'  -»*  i*  V  *»«  *i‘  v 


ENTSPSSTSlNGs  PFOC(A)  pus; 

DCL  (N  EASED  PHI NTN APE ) ( 1 )  BYTE; 

DCL  A  hytf; 

CALL  S  FTLOOXUP (A ) 5 
CALL  limits (n (e)+i ) ; 

CALL  MOVE  (PP.INTN  AMH  ,SBT3L,(N(?'+l)  ): 

SPTB L=SF TBL+ ( N ( 0 ) +1 ) J 

END  entehsstring; 

*•*  V#  Vi  V '  W  Vi  Vi  .W  «*«  Vi  .1.  Vi  «t«  «>.  Vi  Vi  .V  V#  Vi  Vi  Vi  Vi  Vi  v #  .1#  Vi  Vi  x*i  Vi  Vi  Vi  Vi  Ji  ri  .li  V.  Vi  . 

v  i"  'i*  'f  'i'  v  *t*  'r  V  v  v  v  *i*  v  v  »i»  •,»  i|«  i|«  i|*  i|<  v  'i»  v  v  'i*  »i»  'is  *v*  'i*  A*  *r  »i»  »,*  » 

*  ENTEP^CONSTANTilD  -  THIS  PRCCEDnRF  EMTFF.3  * 

*  THE  FOP.i*  FIELD  OF  A  CONSTANT  ENTRY  INTO  * 

*  THE  5YM30L  TABLE.  * 

Jfcs,*:  ##  Xfi  agsaGc  ##  #  ##  a{C  # s£  *Jc # a{c  Ifi  #  jjc  #  # s;c  5|:  ##  #  a|c  #  jJ:  a(; # # >1*  S|c  sjc  a|c  ajs aj:  j,; a;:  # :  : #  / 


ENTRSCON  S  $  ID  :  P^CC(A,B)  PUB?  /*  A=POS/NEG  ,  3=Mp/MPPl/5? 
DCL  (A.B.C)  BYTE! 
c=POL(A,e); 

CALL  S  ETADDRPTR ( 4 1 ;  5YTSPTP ( 0  )  =C  OR  CONS £  ENTRY! 

CALL  ENTFR$STRING(S?) ; 

const$?n$ptp=const$pn$ptr.-i  ; 

CONSTAINEX=CCNSTSlNrX-CONST$PN  SSIZE  CCNST$FN$?T?  '  ; 

END  7NTF$CCNS$ID; 


/  *f  Si  &  *  :!*  y.s  *  if  *  s!<  *  #  if  j;s  Sf  *  *  if  #  *  *  *  :1s  £  *  *  S:  #  #  t|:  >;«  »;s  #  &  »i  >|t  »|s  s;: 

*  INTEFiCCNS  TA.VT$  ENTRY  -  THIS  PROCEDURE  * 

5:5  DETERMINES  WHICH  TYPE  OF  CONSTANT  ENTRY  IS  * 

*  TO  BE  ENTERED  IN  T’^E  SYMBOL  TABLE,  AND  * 

*  ANT  CALLS  THE  CORRESPONDING  PROCEDURE  TO  * 

*  MAKE  THE  ENTRY.  * 

*  #  J,’i  #  #  Jj!  y.s  &  if.  J.'o*  #  ;<:  #  if  %  >|£  i;:  X;  #  ;,t  i^c ^  *  *:  *:  j  :  s{:  ^  #  / 


=  «  / 


ENTR$CON 5  $ NTRY :  PROC  PUB; 

VECPTP=VECPTR-i; 

DO  CASE  EXPRESS$STX(SP); 

/*  CASE  CONSTANT  NUMBER  */ 

CALL  Y!«TS$COWS$MUn; 

/*  CASE  IDENTIFIER  CONSTANT  */ 

CALL  ENTR$CONS$ID(POS ,SP): 

/*  CASE  SIGNED  IDENTIFIER  CONST  A N ^  -/ 

CALL  ENTH$CONS$ID(NEG,SP  )  ? 

/*  CASE  CONSTANT  STRING  */ 

do; 

C  A I L  SETADLPFTP(4) ;  BYTFPTF (a)  =  16H  OR  ccns*fntdy; 
CALL  EN TER$S THING (SP  )  ? 

CONST$PM$PTP=CONST5P.1$PTH-i; 

CON'STil NDX=CONST$ INDX-CONS TiPN $0 1 Z E (CONST$PN '^PTP  ■  ; 
EN  E  * 

END;  /*  OE  CASE  CONST$TY?S  */ 

END  EIMTP.iCONSi NTRY  J 
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/** 

/* 

/* 

/* 

/* 

/* 

/*< 


s  */ 

"FCSM 
en  :r  i 

A  pc  I 


>  U*  «(«  »(#  Jj  X1#  A  X^4  x^  x*.  x*#  «'#  «f#  Xf»  xO  X<#  x1#  X*#  %**  x*#  X1#  x'#  X<J  X*»  X*J 

'l'  #|X  JtX  #|X  *|X  #^x  *,X  #j*  *,*  #(X  »(x  *tx  #)x  «,»  #(x  #,x  #,«  #,*  #|»  #,X  < |X  (,X  #tx  *,X  #tx 

-N7?.$C?LX$TY?  -  THIS  PROCEDURE 
CALLED  TO  ENTER  TrE  "LINKS "  AND 
T^E  ,CCVPLE7  TYCE ^  SYMBOL  TABLE 
NO"’”*  TFAT^TEIS  ENTRY  NE7”R  HAS 
NAME  ASSIGNED.  */ 

'»  *'•  x*.  x>.  X>-  X*.  «l<  V'  »*#  '*»  X1.  x'«  V*  V'  xf#  xl«  *»#  »l<  x>.  .1,  x'#  X1.  xl.  %>0  »•.  *1#  «'»  »*.  xl.  x'.  x'« 

.*  'i*  v  *i*  #i*  #»•  *i»  A*  v  •>*  *v  *4*  v  *r  V  -i'  'i*  *A  #>«  *i»  *i*  'i'  *i*  »i’  *i%  v  »i»  'i*  v  'i'  'i*  v  •  v  v  *i- 

•NTP$CPLX$TYP :  PFxOC(A)  PCBJ 
lCL  A  cYTE; 

CALL  L I v  I  TS  (  5 ) ; 

3ASE  tAPTHADD?=SBTPL; 

A  DDR PTE =2 32 DH! 

CALL  SSTADDRPTR(2>; 

ADDFPTF=PRY SSBTiF-NTFY  J 
?cvast:taentoy=ease; 

CALL  S ETADERPTR (4 )  j 
3  YTEPTF.  ( ‘Z  )=A * 

sptcl=sbtbl+5; 
end  entp.scplxstyf; 

/x'.  Xk.  X1.  X1.  X*.  x'.  V*  X*.  x'.  '*/  xb  xl#  x<>  x*.  X*.  x '#  x‘#  X*/  X1.  X1.  x'.  X1#  X*.  X>.  X*.  X1.  X*.  x*.  X1.  X*.  xl.  x*.  x1.  X1#  Xf.  •’  X*#  X f.  -X 1  - 

»l»  »|»  *1x  «,X  «,x  »,x  *,X  .,x  .|X^x  ^X  »,x  3,x  #|X  #,X  »(.  ?|»  #|X  ,t*  Y  Y  .,x  Y  '»•*  *t%  '4*  'I*  'l*  '■*  »l»  '4'  V  'l*  'I  I  '|*  *|*  'l' 

/*  ENTcASTPiTYP  -  THIS  PBCC&rUP*  is  */ 

/*  CALLED  EY  THE  'TYPE'  PRODUCTIONS:  */ 

/*  1.  SET  TYPE  */ 

/*  2.  FILE  TYPE  */ 

/*  2.  POINTER  TYPE  */ 

/*  IT  CALLS*’eNTB$CFLX5TTP  TC  SET  UP  I*"- 
/*  "links"  AND  "eo®!*",  THEN  it  sets  a 

/*  TC  THE  ASSOCIATED  COMPLEX  ?v?E.  */ 

/.'#  X*.  X*.  xl«  x*#  xl#  x'#  «'•  X**  x'#  Xf#  xl#  x*#  x  #  x*#  X1#  X<#  X*#  V#  X*#  X*#  X*#  X*#  Xk#  •’  #  x'#Xf#  X1#  X*#  %*#  x1#  X*#  *’#  X>#  X*.  . 

#1'  »|*  V  *)•  »!•  #1'  V  V  *1*  V  'l*  *1*  #)»  Y  'I'  #|»  'l*  'i-*  '4*  v  *4»  Y  *»■*  *1*  *»'V  V  '|»  -I*  #1*  -4'  V  V  '4'  'I*  * 


1  y-? 


IS . 


-  / 
;/ 


O  / 

?0I  V 


ENTASIS ATYP:  ??0C(A)  PUP”, 

DCL  A  byte; 

CALL  ENTP $CPLX^TY? ( A ) ; 

CALL  L IM TS  (  2 )  J 
CALL  SETAILRPTR'D) i 

addpptf=ty?e$lcct; 

S?T?L=SBT?L+2J 

ty?e<lcct=?ase; 

END  CM7P$STP iTY?; 

/  it  #  if  it >■,: *  *  jjc  it  it  j|:  if  if  it  if  *  if  if  if  Jfcslt  $  if  if  if  if  if  if  if it  if  it 

*  ENTERS  PA  RAN1  ETER$  TYPE  -  THIS  PROCEDURE  * 

*  UTILIZES  2  BYTE  0”  COD?  7CR  EACH  S UR BOLT 

*  INS  PARAMETER  THAT  V AS  RECOGNIZED  AND  PC 

*  THE  FOLLOWING  INFORMATION  IN  THE  SYMEOL 

*  T ARLT :  1.  TYPE  Qv  PAPAMETE?  * 

*  2-3.  RELATIVE  LOCATION  OE  PARAMETER.  * 

J#  X*#  X*»  xl#  JU  .1.  xl#  J#  xl#  xl#  J#  xl#  J#  xl#  xl#  X1#  J#  xl#  xl#  xl#  xl#  xl#  J#  Xf#  xl#  X*#  xl#  X*#  xl#  X1#  X>#  X*#  X*#  X*#  X*#  xl#  X*.  xf#  X*#  X1#  X1#  X*# 

■r  v  yv  v  v”v#i' v  »i«  v  #,»  #,5  »,•  #,x  #,»  #,.  »,.  y  *i~  A*  y  'i-  h*  «i»  -i-  v  v  v  v  v  *»* 


TS 


ENTC$?RM:$TY?  :  PRCC  PUR i 

APT? A  TCR  =  PARAVNUMLOC  -  li 
ADERPTR  =  SETBi; 

SRTRL  =  S3TRL  +  2*?ARAM.NUM  -  2? 
BASE  =  LASTSSBTPlSlEi 
DO  WHILE  PAP AMNUM  <>  £J 
CALL  SE^ADDRETR ( 4  ) ; 
rFMPBYTS  =  BITFPTPxO)  J 


/ 
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a?? -add-  -  5b~'l; 

^T"75njj,'7'  —  ’irv';:vlv; 

sp^l'^  'sptrl  ’+  i;“” 
call  5:7*?a3ts?*: 
7iv-4.r:  h  =  a  r  i  ?.  ?  r  r  ; 

APT?  A  T?F  =  S3"’T!L.‘ 

ATI?  FTP  =  TEMPADD-J 
EFT'LL  =  5FFPL  -  4 ; 

C A  LL  ~S  Fm A  DDE?m? ( ? )  * 

rasp  =  a  r  r ; 

"  t  p  \  V  'j  *  •  V  =  p  t  7  i  v  v  •*  f/  — 


APT? ‘DIP  -  PAr.AVM’MGC  J 

cp":t  -  5  p'-t;  l  +  3:::frV'nTPrn3^'. 

"’ID*  =  ; r'Fvs',YP ; 


1 ' 


7-;  ?  A  R v$  E  YT IS  -  THIS  cROCEIt’RZ  IN 

*  Cl  RYTIS  OCCUPIED  T)”  A  'FARM' 

*  t  T H I P. r  ARGUMENT  I*,  7-7  I  \  T  F  ?.  M 

*'#  —■#  *4#  %f*  «l«  •.  V  *f*  V*  k*«  •*«  %■*  •*#  »*•  ■** -  *■#  «*«  .•#  «■#  %■»  «'»  %*•  «*#  %■» 

*i*  •**  *>»  *.*  *»•  •••  v  •.*  •*!*  A*  v  *»*  '»*  *r  'i*  **•  *r  »i'  -«*  »,*  '.*•»*  -i*  'i*  'i* 


:ir?  ' 

D  7  C  L  A  : 
itiat: 


i  ?  i :  n  a  s 
CO' I. 


PAFVS^YTfS  :  ?cOC(LCC); 

CCL  LOC  PYTi;  IF  LOC  =3? H  T”IV 
’AIL  GENERATE  (22'-':  ILS  I 
IF  LCC=1  IF  THEN 

CALL  GENEVA  TI  ( <3£H  )  » 

FLC  F 

CALL  0FN-RATFU1H); 

FND  PA?.M$B  YTFS  » 


/O*  »'»  J*  •<*  J<  %•  »  «l»  «<»  .  •»  »•»  «V  ***  >*'  VU  «><  «V  »V  *•»  -*•  V«  -1-  J»  **•  »'«  •*»  »'»  »*»  *•»  *'»  *•»  *'»  *'*  •'*  J*  *l»  >'<  *•»  »'< 

•>*  v  i» -A*  -i*  -i  a* 'i'  -..A*  ■'»*  >«*  v  <i* 'i*  A* 'i*  *»•  ',*A*  "i*  •(*  *i»  •»*  *■'  *i*  »•'  *i*  »i*  'i*  'I  •!»  *1*  *i-  v  'i*  *,*  »»•  »i' 

-  BUILTSIN  S°AFAMTFP  -  THIS  PECCZDU?7  ENSURES  - 
*  A.  PRC??15  MATC5  UP  PETVFSN  THr  SUBROUTINE'S  * 

5:5  FORMAL  PARAMTFCS  AMD  THE  CALLING  ACTUAL  * 

*  PARAMETERS.  * 

if  if  s;s  J)t  jjt  j)t  it  #  *  ;',t  if  :f  if  if.  #  if  if  £  sfr  -t  ;|t  j[:  sje  *  if  :J*  #  3js  if  #  i:  if i',:  *  / 


?UILT$IN$PAFM:  PECC  PUB! 

APTP.ADDF  =  PARMNUMLOC(SP)  ; 

BASE  =  *?  TRAIL?.; 

I?  3 YTFPTR ( >?.  )  =  13H  THEN 

do;  /*  c”zck  for  integer  op.  real  input  #/ 

IF  NOT  ^  ( (  S  EL  (  (rYTEPTR(0)  AND  FOPMMA.SK  )  ,  3  ^  OR 
FAFSENTPY  )  = 

(F0P.mA7I£L£(sp)  and  7FP )  ) 

OR  ( ( ROR( ( FYTFPTR ( 0 )  AND  ?e=  ' , 1 )  OR  V A0 GENTRY ' - 
(FOFM$FTELD(SP)  AND  7^R))}  THEN 

ca  ll  eprop(  'ip'); 

ELSE 

do; 

CALL  GEN  $  ADDR  (  PAF.M  ,  PPT  A  ADD?  (S?  )  )  5 
CALL  PARMAEYTES (3YTEPTR (2  A  }  ; 

end; 

end; 
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T  T  n  T  ^  O  * 

If  £  Y'i'ERTV  (2  )  =  0E2H  “HEN 

Do : 

II  SnR(FORMSFIELE(S?) .2)  -  33H  THI'I  /*  CAN'T  RE 
CALL  E PROP ( 'IF' ) J 
ELSE 

do; 

CALL  0  EN  $  A 1 1 R  (  P  A  P  M  ,  PR  T  $  A  T I P  ( S  ?  )  )  ; 

CALL  PARM.$BYTES(  3YTEPTP  (0  }  )  ; 

end; 

end; 

VLSE  DC; 

IF  NOT(  (SHL(  (FYTEPTP  (3  )  AND  ECFM.MASY)  ,2  )  CP 
V  APiENTRY )  ~ 

FORV A?I ELL ( SF ) )  THEN 
CALL  ERROR ( 'IP' ) J 
ELSE 

do; 

CALL  GEN  $ADFR ( PAR M , FRTi A  DDR ( SF ' ) 5 
CALL  ?ARM$  BYTES ( BYTEFTR ( £ ) ) ; 

end; 

end; 

^  vr » 

?  ARMN  UvLOC  (  SP+2 )  =  PARVNUMLOC  (  5P  )  *  1J 

IF  S^n  (rORYiEIELD(SP)  ,?'1  THEN  CALL  GTN  ERATE  {  LCD  I;  5 

end  builtsi«i$papm; 

y  3;:  s;:  V  =£  sjc  5|s  #  5 *t  sjs  3;;  #  :J:  ;;;  ;(:  #  ;J*  3jt  >;<  3|:  3;;  s;c  :;c  3;c  3;: sj:  #  #  :,s 3,: ;,c  3;:  i\i  3;: 3;c 3;:  3;; 

-  ASS  IGNiPA?AivTTE?S  -  THIS  PROCEDURE  ENSURES  * 

*  A  PROPER  MATCH  UP  BETWEEN  THE  SUBROUTINE'S  * 

*  ?ORM.»L  PAR AivETEPS  AND  THE  CALLING  ACTUAL  * 

*  PARAMETERS .  # 

5*1  »'<  «'«  »U  »•*  <!•  J,  .i,  «i.  J«  .<«  .•<  «L  ,<«  ,i«  »<»  »<<  \f«  «'*  *l»  »•«  •'<  J#  *'*  V*  »'*  *V  »'»  *'»  *’»  »'*  ■.'*  %*»  •><  »'#  •'#  *•«  »•* 

*0  »i*  'i»  v  'i»  'i»  v  #i*  '1'  V  •»»  »i*  V  3|»  >|»  3f»  Y  »,»  >,»  3,%  *■,»  3,»  «y*  3,»  »,«  »,*  »,»  »,*  *,*  >,*  *,*  *,*  »,»  »(•  *,>  «,*  »,*  »,«  «,•  »i*  »,>  , 


ASS  IC-N$P  ARMS  :  PROC  PUR  J 
IE  SIGN^ELAG  THEN 
lo; 

IE  ■pOFM$7IELB(M?-3)  =  BUILT*  IN  $FU\'C  THEN 
CALL  built*in*?arm; 

end; 

ELSE  17  TORM  $FI ELD  ( M.P-2 )  =  BUI  LTS  IN  <7UN  C  THEN 
CALL  EU ILT  *1 N *P ARM } 

ELSE  DO; 

APTRADDR  =  PARM.NUMLGC (  S? )  J 
BASE  =  APTRADD^; 

IF  S HR (EYTEPTRv 0) ,7)  THEN 

do; 

IF  ( 'PYTEPTR  ( 2  )  AND  7FH  )  =  FORM  *  ?I  ELD'S?  )  THEN 
/*  THIS  IS  A  VARIABLE  PARAMETER  */ 

CALL  GEN$AEDR(PARMV,PRT$ADDR( S?  )  )  ; 

ELSE  CALL  EPPOR('IP'); 

ENT  ; 

ELSE  DO?  /*  TUI S  IS  A  Y»LU7  C1  P.AMETEP  */ 

IF  ( BYTEPTR ( 2  )  =  FOpM$FIFLD(S?  )  ) 

OR  ( BYTEPTR  (0  )  =  ( FORM!$FIELD  f  SP  )  AND  7FH  '  )  TEEN 

do; 


/ 
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CALL  3  ?N  S  APE?  (  P  AR  v  ,?RT  5  ADD?.  ^  S  ?  J  ! 
J‘LL  P  A  R  U  $  -  Y  T  E  S  (rYTZrlP  h))i 
EMI ; 

~LSZ  CALL  E  E  F  0  F  (  'I?  '  ); 

end; 

?  AR  VfJ  tjm LO C  (  S F  +2  }  =  PA.Rf<MUy  LnC  (  S?  )  *  ; 
READ  SPARES  =  TPUII 
Z  \'D  ; 

ENE  ASS  IC-N  SPARES  ; 


/  i,'  A,.  *,•  V  A,- 

3i'  O'  O'  O'  *1'  - 

*  O'  V  O' 

/* 

LOOKUPS 

IEENTIF 

up_ 

/# 

V’T  T  c  "  S  v  wc  ASP' 

A  K  D 

/=;-- 

o  rTTTr 

"■RUE  I  E 

737 

/*'■ 

O'  O'  O'  O'  O*  O'  O'  5.'  V  O' 

»  »,«  ■»,'  V  ' 


*  o*  o'  o*  »r  *»-  o'  -i»  o*  o*  o 


v 

_  ;  v  1 

v*  V  O'  W  o'  V  o'  o'  -  -  A:  )|P  V  'i'  o*  o'  '  •  o'  v  -i 

LOOKUPS  HEM?  :  FP.OC  RYTH  PUP  I 
3  A  S  F  =  F  A  S  H  *  A  *  L  E  (  3  Y  K  H  A  S  E  )  : 
m  YPILF  (EASE  <>  2)  A N E  (STEM  >  STM: 

IF  CHES?P?SNAPE(5 }  THEM 

eg; 

LOOKUP S A  LDR=?ASZ  > 

RETURN  TRUE; 
end; 

ELSE  Do; 

CALL  SETALLRPTR  ^  0 )  5 
3  AS E=A DDF  PTE; 


r V  / 

I?'-'/ 

*  / 

V/ 

' '*■ ;  *  / 


'OP' 


R'TUPN  7AL5  E » 

END  Lookup  A  I  LENT; 

/«’»  N1'  *•»  *’»  V*  **•  «'»  «•»  <U  >l<  «'«  .<•  V*  ^  •*»  «•»  >*'  -JU  «i»  ><<  ,t.  J/ 

o* ...  v  o»  v  o'  'i'  o'O*  o»  V  v  *»'  >r  o'  'i'  O'  o'O'  - 


-  *'*  »*»  »'»  *•»  '•»  v*  *'»  « 


/* 

/* 

/* 

/-■■■ 

n 

/* 


SYVRASH  AN] 


NET  -  THIS  PROS 
CALLS  LOOKUPS  I T- 
LETEPN'INE  II  TEE  ENTRY  IS  IN  TEE 

CF  THE  P^INTN* 
TER.  IF  THE  EM 


T1 RLE  .  THE  ADEPTS 3 
PASSED  AS  A  PAR AMI 


POUND,  TRUE  IS  RE 

f  V  V  O'  V  V  v  V  V  V  V  VV  V  V  V  V  V  *1*  V 

LOOEUPSpN  A!'E  :  ?ROC(A;  * 

del  a  aedr;  /#  aier 

ECL  3  3YTE , ( N  3ASED 
rasrcoee=3; 
do  p-i  to  n  ( e ) ; 

HASECCEE=(EAStrCOE 
ENE  ; 

syvfasr=hashcoif; 

PRINT-;  iyv=A ; 

petupn  looeufsieent 
ENE  tOOKURSPNAVZ; 

f  V  V  V  V  V  V^v  V  O'  JiJ  O'  O'  O'  O'  O' 

/■■  ST'^ESCONSTANT  IEEN 
/*  CALLED  VITH  PRINTNA 
/* 

/* 


UR NED  .  */ 

V  i:  *1'  O'  V  O'O'  O'  V  V  O'  O'  O'  o*  o 

YTE  put; 

0E  PRINT-NAPE 
A ; ( 1 )  3YTEJ 


SY 

V  " 

3  Y 

*  / 


T  ~ 

MO 

IS 

IS 


SET; 

i 

-  / 
Aj  '  / 

*  / 


*/ 


>N(3})  ANT  E ASHA  AS Hi 


IDtntT-IER  in  the 

*  j;:  s;i  *  s’:  :Jc  —  j;:St  j': s;;  #  s|! 

STORES  COM  S T :  PPOC  ?UF J 


3,:  3jf  Vv  3{:  VV  3,:  :,f  y  ;j: j,e  v  v 

T  I  F  I  HR  -  THIS  FCUTIN 
?Z  SET  TO  LOAD  AN  */ 
CONSTANT  ”ALUF'  v  A  F  I 

**'  w  o'  o'  ^1*  v ; ;  j,»  o'  o'  *1'  o'  o'  *»£ 


IS 
A3L . 


-=/ 


*  ^ 


1U4 


"7  '  *  Tier-  ->  ■, 

1  Li.  J!  .^'wtur^^r  m 

A  LI  :-,nv?  f?p  vr 


rcss?$  iMrx=cc:»s?5  inix-m  (v? '  -1  • : 

cc \s  T iPN 4^SE(  CHSTSFNs- 7" j=S TT  H ^  5H : 
CON? 75 $?IZK(Cr,i5Ti?NS?r-  '  =  N  T  '  -1 ; 
CC'JST5?N’  ip’"'==cC'iS'r5"!N5;:'”-^l  I 

:\d  st^~isco\st; 

;v! r  syivpol; 


13? 


S?A0EftIDT:j(E3  ) 
Sr.'THl:  r^; 


'  ■  T  I 


*  ^ 
0 


v  v 


-  o: 


J  V, 


DECLARE 


LIm  L ITZPALLV  'LITERALLY', 

ECL  LIT  'DECLARE', 

TXT  LIT  'EXTERNAL', 

PCS  LIT  'e\ 

MS  LIT  '1', 

PP.CC  LIT  'PROCEDURE  '  , 

TP UP  LIT  '1  ', 

A TCP  LIT  'A?L°?SS  '  , 

PAL?  Z  LIT  '?', 

STA?rST3E  LIT  'ADDRESS', 

PU  ILT  SI N  SFTJNC  LIT  '£?*';  ECL 

PSTACKSIZZ  LIT  '4c',  /*  SIZE  OP  "AES?  STACK?  */ 
HASHT3LS  IZI  I  IT  '12R',  /*  S  I  2  ^  07  PI  AS  7  T  A3  Li  */ 

■°C  ES I LIT  '8'.  /*  BYTES  USED  POP.  PCD  VALORS  */ 

MA.  XSN  EST  LIT  '3  ,/*  VAX  LEVEL  0r  iVEST?  RCR  TYPES  / 
yA  XS »  PPYSEIY  LIT  '5',  /#  "AX  AP~Y  DIYZ.iS  I ONS  */ 
ROb^YASK  LIT  '7',/*  USED  T'"'  D^TRHYI NR  ROPY  7  YPr  / 


/*  ROR* 


ENTRIES  */ 

LA^LS  <N  TRY  LIT  'O', 
C°NSS ENTRY  LIT  'l', 
TYPES RN TRY  LIT  '2  '  , 
7APSRNTPY  LI'1’  '3', 

<  T*r  ">3v  r  ' 

TYPES  DOLE  LTT  '7', 


/*  \Tjy3r5  CY?7'  */ 

CPIS  TYPE  LIT  '2' , 

I  N  TR TER  STY  PE  LIT  'l '  , 

C’JAR S TYPE  LIT  '2', 

UN S  I *7 M S EXPCN  LIT  '3', 

S I  ON  EDS  EXPCN  LIT  '4', 

RO0LRAN STYPR  LIT  'o', 

REALSTYPE  LIT  '2' 

COMPLEX STY PE  LIT  4'  , 

STRINGS TYPE  LIT  '4'j  SRJECT 

/*  YA.NY  OR  THE  FOLLOWING  VARIAELES  CAN  EE  REPLACED 


AV 

YAKING  USE  0^  THE  PARALLEL  PARSE  STACKS  */  DC L 
ARRYST I "SLOW VAL ( 25  )  A  EDR  EXT,  ARRYSI IY$ 71 VALf 26  }  All?  EXT, 
DISP$7rC ( 2f )  AD IF  EXT,  ARFYSOEESRT  A  DDR  EXT, 

CONST  S?TR  EYTE  EXT, 

CONSTSTYPE  BYTE  EXT, 

VTCPTR  RYTI  EXT, 

TYPINUfi  BYTE  EXT, 

STARTBEOS  AIIR  EXT,  /^ATTR  OF  PTR  TO  *0?  OR  PL OS* / 
Y 1 X  RASED  START3D0S  ADDR  , 

TYPFSLOCT  ACER  EXT, 
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7  f .1  e  p  77  -  Y 1  ~  r  '■!  T 

8 LCCE A> I CTY?  EYTE  17” 

A?  RY  $  C?  Y  ( KAX  S  A  ?F Y$D  I K  j  AD"?  TXT. 
VAR$?AST(ie'  AEIE  7 XT , 
v  4  ?.  $3  AS  El  (  if" )  ADD?  EXT, 

ALLC$OTY  ADD15  EXT, 

EAP.INTSTYFE  A  DIR  EX?  , 

CONSTSHE-X  3YTE  ^XT  , 

L0O5UPSAEDE  ADDS  EXT, 

CC-.N  STSVALUZ  f  16  )  BYTE  EXT, 

CC‘J  ST$PN  SHASZ ( 4 )  BYTE  EXT, 

CONST £?N$F??  ®YTF  EXT, 

CONSTSFN $SI7Z(4'  EYTE  EX", 

I ''  TEC-ER  $E  I  EE  ADD?  EXT, 

STT?R  S  VAL  ( 2  )  ADC?  EXT, 

SUBR$TY?E(2'>  BYTE  ErT , 

SU3RSPTR  BYTE  EXT, 

5TTB  $TYP  S A  EE? ( 1 )  ADD®  EXT. 

SUERS FORK  EYTE  EXT, 

SION  7 ALU  BYTE  EXT, 

APRYSBASE  ACr?  EXT, 

ARRYSPTR  BYTE  EXT, 

A??YSDIK$?T?  3YTE  EXT, 

PTRPTP  ®YTE  ®XT 

PECS  7  A?.  iZYe'y  AX  I N’  SS  T  I  EYTE  EXT, 
?.EC$NST  BYTE 

VA®IA'iT$PART(KAXSNEST)  ®YTE  “XT. 

•V  U  v  S  ARRYSC  I V  (  K  AXS  AR.t  YSC  I  v  '  BYTE  EXT, 
AERY $DI KEN (?f  )  ACE?  7X?  , 
C0N3T$NUK$TYPE(4)  BYTE  EXT, 

A ? Y $ C K S A I R $ ® T R  EYTE  EXT: 

DEL  BTEil  UK  (BCDS  I  2E  }  ®YT~  EXT, 

SC F ( 1 3  )  ACER  EXT, 

S C^PE $N UK  B Y^E  EXT, 

TEKP^YTE  BYTE  EXT  , 

TEKPE YTE 1  3YTE  EXT, 

TEKPAPER  AEI?  EXT, 

TFKP ADPP 1  AEER  rXTJ 


ECL 

/*  COUNTERS  */ 

COEES 1 7E  AEr?.  EXT,  /*  COUNTS  .NUMBER  07  LATE  I 
ERRopCOUNT  ADER  EXT,  /*  COUNTS  NUMBER  C~  EPF 
ALLOC$ AHR  ATER  EXT,  /*  COUNTS  PRT  ENTRIES  * 
/*  FLATS  TTS  ED  LURING  CODE  SFj  E®  ATI  Of.  *  / 
’*  P.  ITESSTKT  BYTE  EXT,  /*  IN  V  RITE  STATEMENT  * 
REAESSTKT  BYTE  EXT,  /*  IN  REAP  STATEMENT  * 

N  EWS  S7MI  3YmE  EXT,  /■'■'  GE^S  NEW  RECCED  *  / 

E ISPOSESSTKT  BYTE  EXT,  /*  DISPOSES  07  FECORD 
ALLOCATE  BYTE  EXT,  /#  ®?T  LOCATION  ASSIGNEE 
V  AFP  ARK  BYTE  EXT,  /*  FORMAL  ?‘?AK  IS  Y  Ar.  1 1  3  L 

*/ 

PEADPARNS  BYTE  EXT,  /*  READING  ACTUAL  PARA  A - 


S  */ 
CRS  * / 


/ 


/ 

#  / 

E  TYPE 
TEPS  */ 
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*/ 


PRESENT  BY1’;  EX11 ,  /*  ITiN"! 


/*  GLOBAL  VARIABLES  USED  7Y  T~;  SCAN*.'”  -  ' 

TOKEN  BYT;  FX? ,  /*  TY  ?  E  C?  TOKEN  JL5T  SCANNED  *  / 
/*  GLOBAL  VARIABLES  USED  I V  SvMBOL  TA^L" 
OPERATIONS  */ 

BASF  4  DDR  FXT ,  /*  BASF  LOCATION  OF  ENTRY  */ 


*  / 


HAS^TABLE  (  UAS  UTE  LS  I ZE  )  A  E  DR  EXT,  /*  B  A  S  H  T  A  p  ’ 


A  • 


S ETBLTOF  AIDE  EXT,  /*  HIGHEST  LOCATION  CE  "v:f! 

TABLF  #/ 

SBTPL  A  LDP.  FXT,  /*  CURRENT  TO?  OF  SYMBOL  T  A  rLF 
APT? ALL?.  Air?  EXT,  /*  UTILITY  VARIABLY  ".r  ACCESS 

SB?7!  */ 

A  DDR  FTP  BASED  APT?.  A  DDR  ALL?,  /*  CrRFF«T  2  BYTES 
PCINTZr  AT  */ 

(BYTEPTP  BASED  APT?ADDR)(1)  3Y"7,  /*  CURRENT  BYTE 
POINTED  AT  */ 


*/ 


PRINTNAME  AIER  EXT,  /*  SET  FRI7R  10  IonjtT?  0? 


S Yv BAS  H  BYTE  FXT,  /*  HASH  VALUE  CE  AN  IDENTIEIEP  */ 
LAST iS BTBL-ID  ADD7  EXT,  /*  -^12  PREVIOUS  PA  S 7 
LOCATION  */ 

FA?  AMN UMLGC  ADDS  EXT,  /*  STORES  POINTER  TO  ? A R A v 
LISTING  #/ 

SBTBLSCCFE  ALER  EXT:  /*  PAS"  OF  LAST  ENTRY  IN 
PREVIOUS  PLCCS*/ 


E CL  BUlLTi  INiTBL ( ID )  BYTE  EX? i 

/  sis  sis  sis  sis**  sis  sis  sis  p  J ,5  gpp  VARI  ABE  ^  c  ijs  v  »!*  »«*  *!»  *,R  -I*  *i*  v  y1 

DDL  PA  ?  MNUM ( P  ST  A  CKS I ZE )  BYTE  EXT,  /*  MA  I N  T  A I N  S  NUN -EE  ot 
PARAMETERS  ASSOCIATE!  WITH  A  SUBROUTINE  */ 

LABELS7 ACS (PST  AC KSIZE)  ADD?  EXT,  /*  TRACES  STATEMENT 
LABELS  */ 

PARMN  UML0C  (  FSTAC'KS  I  ZE )  ALL  D  EXT,  /*  MAINTAINS  THE 
LOCATION  IN  SYMBOL  T3L  WF.EFE  PARAMTTEP  INiC  STCR77  -/ 

EA S?$LOC (PSTACKSIZE)  ADD?  EXT  ,  /*  STAPES  T'JE  5 Y M  -  7 L 
TABLE  ALERESS  OF  THE  PERTIN ATE  ENTRY  */ 

FORKSFI FLD( PSTACKS I ZE )  BY7E  7XT  ,  /*  STORED  T T'E  7C?M 
FIELD  OF  SCAN  MFD  IDENTIFIERS  */ 

TTPS$S7ACX(PSTACXSI7E)BYTE  FXT,/*  HOLTS  A  VARIABLE'S 

TY?7  * / 

EX?R7SSiSTK(PSTACKSlZE )BYTF  EXT,  /*  CONTAINS  7F F 
TYPES  OF  THE  EXPRESSION  COMPONENTS  */ 

P?T$ ADD? (PST AC 7 SIZE)  AD DR  EXT,  /*  SICR7S  AN 
IDENTIFIER'S  PR T  LOCATION  */ 

PARAMNUM  EYTF  EXT, 

(S?,MP,MPP1)  BYTE  EXTJ 

REJECT 

/sis  MMEY0?/rcs  p0R  PASCAL-Sy  MACHINE  */ 
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r  r  ■ 


0-  ,  l  N I  ?  LIT 


'1  '.L 3L  LIT 


-i.  i  z  ■ 

;  j  •'  = 


NO?  LIT 

LTII  LIT  '4',PCC  LIT  'K',RTN  l  :  i  c  .o*. 

U\5?  LIT  'e'.CNV?  LIT  '9'.CMT  LI-  'IT', ALL  LIT 
LITA  LIT'12',AFIF  TIT'IT',1!!!  L  I T  '  1*1 ' ,  SUE?  LI 
SUPI  LIT'ie'.^UL*  LIT'1?',VTLI  L I T  '  16  ' .  I IV1  LI 

rivi  LiT'ze'.ycLX  Lir'2i  :n  lit'22',neci  li 
LFC  I  L I T  '  ?  4  ' ,  G  F  C I  LIT'25',LS~I  LI  T  '26  ' , GPTI  LI 
TIN  LIT'?6',ECL?  LIT'29'  .NEC  *  LIC'30',170?  LIT 
C-^:E  LIT  '32  '  ,LSSP  LIT'33'.CRTB  LI  T  '24  ' .  F  CT.S  LI 
NFCS  LIT'3c',LF0S  LIT'37',GFCS  LIT'3P',LSSS  LI 


*  , 

si'H' 


IT'*0' .FCSET  LIT  '41 ' , NFC  ST  LIT'- 


'  .INC’ 


LIT '43', 

INCL2  LIT'44',NIG3  LIT'45', 

MFT-I  LIT'46'  ,C0ivr5  LIT '47 COPI  LIT'46'.KCTX  LI 
AN  IT  L I T  '5t  ' , ~CR  LIT  '51 '  .STOP  LIT'52',ST0I  LIT 
STC  LIT  '54  ' ,  STD3  LIT '55' , STC  I  LIT'56',S?r  LIT' 
UNION’  LIT '58' .STFIF  LIT'59',IS^C  LIT'o0',CMI 
BRL  LIT'S2',BLC  LIT'63',CN2!  L  I T  '  c’4  ' ,  .VKS  IT  LIT 
XCHG  LIT'ec  '  ,?*.?«  L I T  '  67  ' ,  ?  A  ?  U.  7  LIT  '63'  ,  PA?tvX 
INC  LIT'70'.EFC  LIT '71  ' ,  E’L  LIT  '7?  '  ,V.  «T  II? '73 
SUE  LIT'74'.LLSI  LIT'75',XASS  LIT'76',LCI  LIT' 
LOT^  L I T  '73  '  ,  LOD I  LIT'?9',RDV3  LIT'ao'.PDVT  LI 
P l VS  1 1  T  ' S 2 '  ,  V. c  T  F  L I T  ' 83  ' ,  V> P T I  L IT '84  ' ,  VPT3  LI 

ru*'?  LiT'ee'.AF?  lit'st'.scp  lit'-b'.sin  lit'- 
CCS  LTT'90',A?CTN  LIT  '31  ' ,  EX?  LIT'92',LN  LIT'3 
SCP.T  LIT'94',0Tr  LIT'S5',E0LN  LII'Se'.FXF  LIT' 
TP  UN  C  LIT  '98  '  , 9 PUNE  LIT'99',0RL  LIT  '1-70', CER 

'101  '  , 

SUCC  L I T  '  102  ' ,  PP.  FI1  LI  T  '103  ' ,  SEE"  LIT'104',?IIT 
LIT  '105  ', 

GF"  LIT'lPc', RESET  LI  T  '107  ' ,  RE>'?.T  LI  T'108  ' ,  PAG 
LIT  '109 ' , 

N  SI- 

LIT  '1 13  ' , 

REV 


'  '07  ' 
i  c.  , 

”  *  rp  ' 

~  '  V 

'  Z  4  * 

Ci  , 


c  =>  , 


'p  *7  * 

♦ 

57'  , 
Ill'll 


°7'. 

r.  1^1  ' 

-  Cl  , 

*  V-  w  « 

G  ' 
w'  * 

r7  ' 

^  t 

5?', 

LIT 


LIT'110'.riSPZ  LIT  '111  ' ,  FV.F  LIT'112' ,XT?.M 
lit'H4'; 


$E JECT  ERROR : PRO C ( LRPCOLE )  EXTERNAL; 
DC  L  FRRCCBE  ADC?  * 

END  E^Pop  ; 


LOOKL'P$P.UT:®POC  ( A  '  BYTE  EXTERNAL? 

dcl  a  *yte? 

END  LOOKUPiONLIi 

f-OVE:  PROC  (SOURCE, TESTIN' ,L'  EXTERNAL? 
DCL  (SOURCE, DFSTIN )  ADDR , 

L  PYTF? 

ZNL  N'OVE? 


S  FT  *  DDP.PTF  :  PROC  (  OFFSE"  )  EXTERNAL? 
DCL  OFFSET  PYTE? 

END  SETADERFTR? 


^0N3  :  PP.OC  EXTERNAL? 
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END  YON  7! 


LIMITS  :PDOC(COLTNT)  EXTERNAL  ! 

rci  count  byte; 

END  LIMITS? 


ENTRiCPLX-TYP  :  PHOC  (A)  EXTERNAL  5 
PCL  A  EYTE ! 

PNC  7MTS$C?LX$TY?i 


SETiPAST^F N  :PROC  (OFFSET)  EXTERNAL? 
TCL  OFFSET  eyte; 

END  SE'P$PAST$PN  ! 

LOOKUP iPNAMZ : PPOC ( A )  BYTE  EXTERNAL! 
ECL  A  atir: 

END  LOGXURSPN AYE! 


GENERATE  :P°OC (OBJCODE  )  EXTERNAL! 

ECL  CPJCOrS  EYTE! 

END  GENERATE! 

GEN^ADDP.  :?POC(A,P)  EXTERNAL! 

ECL  A  BYTE,  5  A DIR! 

END  $ADDPf 

A  S  S  I G  N  $  PA  R  YS : ?R  0  C  EXTERNAL! 

END  ASS  ICN SPARKS! 

E  N T E?  £  7  A  R  $  I D :  ??.  0 C  (  A  ,3  ,  ID$EVTRY  )  EXTERN 
DCL  (A,?, IDS ENTRY )  BYTE! 

END  EN  TER.  $  EARS  1 1 ! 

E NTER£L ABEL ! PRO C  EXTERNAL! 

END  ENTEb iLABEL! 


SNTRSPRYSTY?  :PROC  EXTERNAL! 

END  EN  TR  SPRY  $TY P ! 

PPIN’TCHAP  sPROC  (CHAR)  EXTERNAL! 
LCL  CHAR  BYTE! 

END  PPIMTCnAR! 


CRLF :PROC  EXTERNAL! 

END  CRLF! 

PPINT$ERPOR:PROC  EXTERNAL ! 
END  PR  I  NT $ERROP. ! 

WRIT$INT$FILE:PROC  EXTERNAL! 
END  '*'R IT£ INT£eile ; 

MOVE$SETBL:?ROC  EXTERNAL! 

END  Y0VESSBT3L! 
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C LOSES  IN TS 71 L: PROC  EX  TERN AL> 

END  CLOSESINTSEILi 

PRINT : PRCC  (  A. )  EXTERNAL; 

DC  L  A  ADDP; 

END  print; 

LOOKUPS  IDENT  :  PP.OC  3YmE  EXTERNAL! 
END  lookupSident; 

REJECT 


INITSSYNTH:  PPOC  PUBLIC? 
CODESIZE  =  35 
SETBLT0P=vAX-2; 
7ECFTP=0  ? 

CONST$PTR»a; 

const  $  in rx=0 ; 

CONST$PN$PTR=e; 

supr$ptr=0; 

ARYSrr$ADR$PT?=-i; 

ARRY$PTR=-1 ; 

variants?art(0)=false; 

ARRYSOTT (0)=0i 

ALLOC SADDR=0? 

END  IN  ITS5TNTH  t 


*  SUPPANC-ESERROR  -  THIS  PROCEDURE  IS  CALLED  * 

*  IN  THE  EVENT  OF  AN  lv?POPER  VALUE  IN  A  * 

*  SUBRANGE.  * 

if  4  #  $  #  #  Jit  #  $  j;s  ##  Jjc  Stc  if  #  If  5|s  if  if  j|:  if  j;:  if  jjc  if  >;s  j;c  s£  >Jt  :;t  aj<  if  if  s;:  S 


-if  / 


SUERS  ERROR:  PROC; 

call  errop.(  'is'); 
subf.stype(subr$ptr)=integerstype; 

SUERS VAL ( SUBRSPTR ) =0000EJ 
END  SU3R  SlPRCR  J 


I  if  if  if  if  :: 

*  ORDSEIGHSLOWSCHECK  -  THIS  PROCEDURE  IS  * 

*  CALLED  TO  ENSURE  THE  SECOND  SUBRANGE  VALUE 

*  IS  GREATER  THAN  THE  FIRST.  * 

V  */  *r  ;i*  n!  *»*  'O  »!*  n' 'i»  ^1'  ******  ^  *'r  *!*  ^  V  W  v  v  v ^  v  ^  ^  v  ^  v  '1s  *i 


ordShi Slow schk :  proc  public; 

IF  SUERS?TR=e  THEN  RETURN; 

IE  SU1RSTYPE(0)=SUBRSTYPE(1)  THEN 

IF  SUBRSVAL( 0)  >  SUBRSVAL(l)  THEN  RETURN; 
CALL  ERROR (  'IS  ')» 

end  opdshislowSchk; 


-f 


/ 
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/^*  j1:  A  A  A  2*1 2*s  sfi  A  A  **'  *'*  *'»  »'»  »'<  »•»  o»  «*>  >*<  •>>  »c.  <■<  » v  o«  >v  »*»  %■<  >■<  j#  .i<  «•«  ,i#  >«•  .1,  .  .  »i,  .1. ,■,  «■« 

*  ,  *,*  *,*  i*  *,*  *!•  »|-*  *.*  '1'  *,»  #«»  -t' t*  t  •»'  »»*  ».*  »r*  *r*  *»*  '1*  '1' v  *1'  *i»  *t*  ».*  »i'  n'  '1*  '1*  •  '  o'  o'  -i*  *■•  -I- 

*  SUREANGESIN  TIGER  SHI SDGSCHiCX  -  TEI  ?  PECC~-  * 

*  PURE  IS  CALLED  TO  ENSURE  TEAT  ^OTE  SU^o  * 

*  RANG?  ELEMENT'S  ARE  OF  TEE  SAME  TYPE,  AM  * 

*  TEA?  TEE  IP.  VALUES  EC  NOT  EXCEED  THT  MAX  * 

*  INTEGER  VALUE.  * 

;’c  s';  5*;  V#  **;  *•»  ***  si  s'*  *•*  *»*  %V  *'»  *V  s'-  »V  >•'-  O*  **,  »>,  .0  j,  .c  .1*  *i<  .1.  ,1,  **.  «i*  j.  ...  .1,  . 

■nr*  '1  'i'  v  *(*  v  '1*  •***  *i*  •»*  '1“  v  v  v  »i»  v  *1*  v  t*  '1'  'r  o'  o'  o'  o*  o'  o'  'A  '1'  o*  'i*  »,••  o'  *0*  o*  o*  o*  'i*  o*  o'  *>•  *<*  o*  o*  *,*  { 

SUP$INT$HL^EX:  PEOC; 

i?  su?p.sptr=2  then  return; 

I?  SUB  RETYPE  (t‘ '  O  SUERSTYPE { 1  '  THEN 

do; 

CALL  SURE  SFRROP  J 


RETURN  ; 

end; 

if  subpsvalO)  <  32?ee  and  subesval'i)  >32,?e?  t?tn 
r  0 : 

INTEGERS!)! FF  =  SU3RSVAL( 2 ) +(  -SU?R$ V»L( 1 ) ) *1 ; 

return; 

end; 

IV  SUU®$VAL(0)  ^  32767  AND  SU3RS  VAL ( 1  )  <  22768  THEN 

do; 


CALL  SUER  £  ERROR : 
or^r^'j ; 

end; 

I?  SUBR$V.»L(e)  <  32766  THEN  /#  EnTH  POSITIVE  */ 

dc; 

I F ( S  UB  ?  Sv  A  L ( ^ ) - ( S URR  S  V  A L  ( 1  ^  - 1 )  )  <  3276c  THEN 

ro; 

INTFGFR  SDI ?F=Sl*RRS VAL(  i£  )-(  SU3RS  V  AL ( 1 )  )  -*-1 : 
return; 
end; 

C ALL  SU3R.SEPP.CR: 
return; 
end: 

ELSE  /*  30TH  NEGATIVE  */ 

IF  (  -  SUBPSVA  I  (  1 )-(  -  3tTBRSVAL(3'  +D)  <  32766  TH 
DC? 

INTEGER$DIFF=(  -  SU3RSVAL  ( 1  )  )-(  -  S U3ES VAL( ?  )  )  +1 

return; 

end; 

CALL  S  U3R  SEP.POR  ? 

end  sub$in?$hl$ckk; 


f  #  *  *  *  #  #  +  *  *  if  *  *  M  5^  #  if  V  #  *  #  V  <;  nS s|:  V  if  J?  s;c  sjt  j? s*  :|c *  #  *  if  #  if  :f if  if  v  -,;s  y 

/#  SUBRANGES  I CENTI FEES  PROCEDURE  -  THIS  ROUTINE  */ 

/*  IS  CALLED  TO  DETERMINE  THE  OFFSET  (  NUMBER  */ 

/*  OF  ENTRIES  IN  A  SUBRANGE  )  AND  THE  "YPE  CF  */ 

/*  SUBRANGE,  GIVEN  THAT  THE  SUBRANGE  TYRE  IS  */ 

/*  A  NAM.FD  IDENTIFIER.  */ 
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5TT^IDSPE0C:  ppcc; 

C  0N3TS  PN  SPT?=-C  0N5T  $  PN  S?TR-1  J 

CONST*  I.\TX=CCNSTSINDT-CCNSTS?N  SS  IZZ  '  CCii  STS  CN  $  ??°  ' ; 

?p  I N  "N  Atf  F= .  C  ON  S  T  $  V  A  LOT  (  CONST  S  I  N  DX  ) » 

5  YYTA S  H=CON  5 T SPN  S HASH  (  CONS  T SP  \  SPTR  )  ; 

IF  NOT  LCOKUFSIEENT  THIN  CALL  SUERS  IP. ICR: 

FLSF  FO?  /*  FOUND  CONSTANT  IDE'iTTEIER  »/ 
?ASr=LOOKUF$ArrR J 

CALL  SITALLRPTR(4'I  :  /*  POINTS  TO  ( EYTEPTR  ■  */ 

SUSP  ^ORf^BYTEPTP  (0  )  ; 

IF  SUBR^ORI*  <>  27-  AND  (SlTRSjOR''  A  V  L  FOFrTASI;  O 
C  ONS  $  FN  TP  Y 

THF'J  CALL  SU3RSFPRCR; 

ELSE  DO; 

IF  SUBRSFCRt-:  =  e?E  THIN 

do; 

stp>r*?ype(subrSpt?  )=opfs,:y?e; 

CALL  S  ETALIRPTR ( c  ^  ; 

STrBRSFCRK  =  PYT"PTP(e)  ;  /*  LENDER  CF  ?.S.»>T  */ 

CALL  SFTArrP.PT?  (7-SUBRSFORY  )  J 

SUE  RSVAL ( SUBR$PTR '  =DOUPLE ( PYT FPTR (e-  '■  )  ; 

CALL  SFTABER?TF.(?-SU3R$?0Ril)  ? 

SUB  STY r$ArDR ( SUER  SPTR ) =A  DFDPTr J 
CALL  ORLSFISLCVSCHK: 

end; 

ELSE  do; 

10  VEIL!  t  (SHR(SUBRSFC?T,3)  ANT  GE'=C'; 

IF  SHR  (  STTBF.SFCRX.  .5  )  =  NFG  THE'! 

IF  SION’/  A  LU=POS  T  PIN  SIGN  ’/A  I  ”=NTn  J 
ELSE  SIGMVALt=?OS ; 

CALL  SZ'rADDF.PTR(6)  J 
S UB R  S FOR N  =? Y TEPT p.  ( v?  ) ; 

CALL  SETALI'RPTR'  7-*-S  U5R  S  FCRr  )  ; 

IF  NOT  LCCiUP$CN  LY ( APTRADD?  '  THEN 

ro; 

CALL  subrserror; 
subrsptr=subrsptr+i  ; 
return; 
eml; 

FLS F  do; 

BASF=Lr'OKUPSArCR  J 
CALL  SFTALTRPTR ( 4  )  > 

S  IJBR$?ORy=BYTIPTF  (  0  )  ; 

end; 
ew  d  ; 

IF  (SHF(SUT3RS?ORN.,3)  AND  3?)  =  U  THEN 
Do; 

CALL  subp.serrcr; 

SU3RSPTP.=SUPP$PTP.  +  1 ; 

PETUPN ; 

ent; 

/*  HIRE  V.'E  HAVE  EITHER  AN  INTEGER  CR  CH'R  */ 

IF  (SH?  (  SttFRSFORiv  ,3 )  AND  3U)  =  1  THEN 
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•;  /-  I  .  -----  -v/  , 

■'ALL  ST'"»Bi??T r.<6); 

^UB?  iFORA1  —BY  DEPT?.  ( <5  )  ; 

rrT  ^  i  7  r  qu"-  3  7  +  c  T-2;  a  $rr  py  \  • 

I?  SIGNVALU*'  =  *NFO  THIN 


s  ’’r?  ori;  ; 


r* 

r\»  r 


-  vli  Jil  IT.  _  T  1 

SUBH$VAL(S'JEHSP;?  )=  -  _  i.  -  r  .  «  , 

ELSE  S  Ur  ?  $  V  A  L  ( S  UI  it  r  PT  H  '  = s  1 1  r.D  f  ?.  i 
S  I’B R  $ T Y F T  (  S IT3 F. $  RTR  }  =  I  ,'i  TFG  7?  S  T  Y  r  F  J 
CALL  SUB^INTS-’LSCHX; 


ILSF 

eo; 

CALL  S 51 A  t  TfiFTF.  ^6 )  » 

SUl?.§FCEK=3YTE?T?(e  )  ! 

CALL  SETADDRPTF  (  7  +  S:;5?.*F0?.y  -5 
IF  BYTF-TR(C^  <>  1  THEN 

DO: . 

CALL  SUBRSERROR  J 
SUBR$?TR=SCiR$?TR+l J 
RETURN; 

fnd; 

CALL  SZm A  DI RFTR  r  ? +3 D r  =  S FO?r  •  5 
I  v  RYTFPTP.  (?)  <41R  OP  BYTE?"’?  (  '■<  )  N  f  AH 
CALL  SUPRSFRRO?; 

fls  ?.  rc; 

S:TBRSV A  L(  SUBRSPT?  )  =DC  U  *Lr ■  3  Y  TE?7R(  •'T 
S  U  B  R  $  T  Y  ?  E  ( S  u  3  ?  $  ?  ?  3  )  =  C  H  A  ?.  *> ' .  Y  ?  F  J 

call  rpr$?i$LcwscE'<; 
fnd: 
end; 

EN  I : 

fnd; 

fnd; 

?CBR£r  TR  =  SUrR$?TP+l ; 

FND  STTBSlD$PPOC  ? 


/*» 

/* 

/* 


ft  ftftftft  ft  ft  ft  sj?  ft ft  ft  s 


:  ft  ft 


jy  *y  «*.  »v  •’/«>*  <0 

v  'i'  *r  v  v  'i'  v'i*  *i' 


'i'  Pi'  '»*  *>*  ft  'i'  ft  - 


SUB? AN GEp CASE  -  THIS  PROCEDURE  IS  DSFD  TC  */ 
DETFRMNE  TH F  NUMBER  OF  ENTRIES  IN  A  SUBRANGE 


s*j  iff  •'*  V*  *•?  i1;  zfi  *'*  »v  »V  V*  V'  *•#  *'»  ♦*»  >■<  «v  «•«  •.'«  v*  *•?  *'•  *•#  »'»  »'*  »u  «■<  « 

v  v  A*  'i*  v  v  i  v  '■  n  v  v  V  ft  *<r  ft  v  *{*  *,»  ft  *i*  v  v  »»>  v  *i-  *i»  »i*  »r*  'i»  v  v  * 


Sl’3R$CASF:  PPOCU); 

DC L  A  byte; 

5 ICNVALU=FnS  ? 

DO  CASE  FXP°ESS$ST’<(  A)  ; 

/*  CASE  CONST  NUMBER  #/ 
rc;  CCNS7$?Tit=C0NS?^TR-l; 

17  CCNST$NlT?TYPF(COM5T??TR  >rfalstyfs  then 

ro ; 

call  subr$frrcr ; 

CONS  T ? I N CX=CCN STS INDX-BCrS IZE» 

end; 


lse 


S;V 
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rc;  /*  i :.'rzrr?  type  */ 
r  c '  j  5 T  $  i  :-i  e  x = c  c  ■ :  s  t  5 :  :o  x  -  ? : 
call 

.cons  r$VALU2(cc>:sr$iNi:o .  .suppsval  -  s*tzr$  f: 

5^5$  Ty  ?t  (  SU3H  A  PIP  )  =1 .» CE  C-E?  ?T  Yr  I ; 

CALL  ’  SUBSI  NTS-L$C’J^> 

EM: 

S  UB ?  S  ? T ?= S  UP?.  $  P T ? +1  J  /*  NETT  TO  FILL  */ 

•Nr ; 

/*  CASE  ILF N T  CC'ISLANT  */ 

C»LL  SUB$I  DSFF.OC  * 

/*  CASE  SIC-NEE  I  TENT  CONSTANT  */ 

re; 

s  tcn  lu=nig> 

CALL  SUFilDSPPOC; 


*  ^ 


fni  : 

/*  CASE  CONSTANT  STRING  */ 

Eo; 


C  0  K  S  T  5  ?  S  *  P  T  ?. = C  C  N  5  T  $  ?  N  $  P  T  R - 1 5 
C  C :N  ST  S  I N  EX=CON S  T  $  I N  EX-CON  5 T  $?  N  $ S  I  Z  £  (  c o  STSp.M- 
PR  I N TN  AVE= .  C CN  S  I  $  V  ALU  E(  CC.':  S  TS I N  L  X  )  5 
IE  CONS?$?N$SIZZ(CONST$?N  API?  )  <>  2  TFT M 

call  suer$errcr; 


ELSE 

:o; 

r  A  SE  =  'C~  INTN  iT7  ; 

CALL  SETADDEPTP ( 1  )  J 

I’  ?Y LEFT?  (  Z  )  <  41-  OR  B  Y  T  Z  ?  T  ?.  {  0  '  s  5AP  T- 

CALL  sufrmrrcr; 

ELS'7 


S  UER s  v  A  L  (  S  U 1 0  $ ?  :  -  '  =:  O’J ?  L  r  (  e y  te  ? L ?  (V  '  -4 
SU3R$TY?E(  SU3P.5PT?  )  =  C  H  A  ?  $  T  Y  r  E » 

CALL  OH  E  £ 5 1  SLOW  £  C TJ  E  i 


ENE 


S  UP?  ^?TR  =  SUET>i  PT?  +1 ; 

ENT  ; 

END;  /*  C7  CASE  EX?:’ESS$STY(VP)  */ 
ENE  SUEPiCASEJ 


!  #  ;‘,5  sjc  #  sfc  #  V  #  ;je  #  5;:  :J:  j’.c  #  >*,:  ; 

/*  ENTE?^SUPPANGE$FNT?Y  -  THIS  PPCCEEU- 
/*  USEE  TO  ENTER  A  SUERANC-S  TYPE  ENMY 
/*  TaE  SYUBOL  TABLE.  THIS  SYMBOL  TABLE 
/*  HAS  NO  PPINTNAUE  ASSOCIATE:  >!TH  IT 

/  =;■- if  $  #  $  #  sjt  si!  <«  Jit  Jls#  sfc  s[:  *  if  *  if  if  #  if  if  ijs  jJ;  Jjt  :;t  if  if  Jj:  if  if  : 

'NT°SSU3£"TRY :  PF.OC  FUBLIC5 
TYP?SI0CT=S5T?L» 

CALL  LIf*ITS(12); 

vtcpte=vvc?tr-i ; 

CALL  StTB^CASE(SF)  ) 


IN 


•i'  v*i'  *!* 

IS  - 
T  o  * 
T?Y 
/ 


;js  :,c  :J:  ^ 

/  , 

/ 


S  5,1  5.1  ;|J  5jc  s{x 
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RITE?  \  ; 

■7  M  T  • 

rc"-*’“IL-(  (se?(3vtt??ru-'  ,3)a:i:  ?ca« 
A  LLC  aZD?l“'=Tv?E£  ENTRY  i  ! 

r. ALL  S?"!’$?AST5?N(7': 
a  45  r-A  DPR?  TF  »  CALL  SZTADD??'1’?  i  i  }  ! 
7YP74L0CT  =  r  A  S  T  5 

ALLCSEO^^EYTZPTRf  A  v  D  EO  =  vv,ASX; 
IZ  A I L  C  i  TC  ?  Vi  O  TY  ?E$ENTE  Y  A.'IZ  ALL 

Y  G”V  \ 

ZC:  CALL  TYP£$I?RC?  J 

allcscty=i; 

aiocras i ctyp=d;  ret"°n  ; 
znl  ; 
end; 

/*  -EPF  EX  IS  TS  ZITKZP  A  FAS  I Z  ",Y?Z  CF 
Iv  ALLC$FORv  =  ?YDZiENl?Y  "REN 
ro;  /#  BASIC  TYFZ  */ 

DO  CAS"  (SHH(?YTFPTF.(3),3)  AND  ZC 
/*  INTEGER  */ 

rc; 

ALLC  £CTY=2» 

ALCC  FAS  I CTT?=I ‘/TIG ZR$T Y F  Z ; 

end; 

/#  BCD  SEAL  */ 

rc: 

4  LLC  $CTY=3  > 

A LCCBA5 ICTY ?=UNS IGZ$ZX?0\  ! 

end  ; 

/*  CP AF. ACTE?  *  / 

Lc ; 

A  LLC  SCTY  =  1 : 

»  LOCBAS  I CT’.  P=C5AE?  T  YPT  J 

end; 

/*  FOCLSA:'’  */ 


,  =7 


TYPT  TZCLAF 
iv  E 4  oz  ^ ; 


rc; 

ALLC4CTY=1J 

ALO  C  BA S I CT YF  =?OOLZAN S  T  Y  F  E ; 

END  ; 

/*  TEXT  v/ 

rc: 

4  LLC  $OTY  =  ?: 

ALOCBASICTYP  =  STRIX3$TYPF; 

ENL  ; 

end;  /*  0T  CASE  */ 
allccate=t?.ue; 

RET ten : 

FND:  /*  ErPr  EXISTS  A  TY?r  DECLARATION  */ 

TE V??Y?F1  , ALLC$Fn?  f*=(SE?.  (  BYTE?  T*  (  M  ,  ?  )  AND  7 OF EE AS 
IF  ALLC*FORv‘  =  i;  TEEN 
DO!  /#  SCALAR  */ 

ALLOCATE=TRuZ; 

ALLCiCTY=rOUZLE( ALLCsFCRM+1 ) J 

alccrasictyp=oec$type;  petufn ; 
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IF  ALLC$FC?V*1  TEEN 
rc;  /*  sn-A^r  -/ 

A  LLn -  1 T - -CRUE » 

4  L  C  r  ^  A  5  I  C  "  Y  r  =  C  0  y  ?  L  E  X  S  T  v  ?  E  J 

^=S  ~R  (  byT“?TR.  0  ;  ,6  )  5 

IF  *  =  1  THEN  4 1  LC  SOTY  -ECU'3!  F  (ALLC  AFOP^-I  ■  ! 
"IS"  ALL  CSCTY  -  I  CUP  Li  ( A.LLC  S  70  Pv  )  ?  RETURN; 

END ; 

I-  ALLCS^0PW  =  2  T V F K 

rn;  /*  a?3*Y  #/ 

1  L  L  C  C  4  T  F  =T  ?  U  Z  I 
A  LPCB  A  S I CTY?=COv PLEX$7Y?5 J 
CALL  RETAIDEPTP'P): 

ULCSOTY=ADL??T?;  RETURN  » 

END  ; 

F  =2 ; 

/*  4  LL  OTHER  CASES  A  1 L  C  C  *•  T  E  AN  ATIRiSS  FIELD  -V 
A  L  LC  S  C  T  Y  =  D OU  B L  E ( "  i  i 
AIOCBASICTY'D  =  CCy?LEXS"YrT; 

A.LLCC  1Ti=TRUI* 

END  A  LLCinyysE?; 


j  "i-  'r*  '1'  v  •!•  *,*  »i»  v  v  v *»»  V  A»  »[♦  «J*  v  E*  v  A*  A*  7j.  V  A*  A*  Ri"  A*  A*  A*  A*  A*  v  'i1*  *i*  *('  *i’  *.  •  *i»  *>»  '«*  '•*  '■*  '>*  'i*  '<*  '< *  / 

/#  AlSNDXSOFFSET  -  THIS  PROCEDURE  IS  CALL"!  *  ' 

/*  TO  DETEFyINE  TEE  NUYPSR  OF  BYTES  ^CuIRil  */ 

/#  pv  \'j  AFF«Y  To  STORE  TEE  ARRAY'S  COMPONENTS  */ 

/*  TYPE^LOCT  IS  SI?  ?°  ICR  TO  CALLING  THIS  ’-V 
/*  ROUTINE.  AN  AELRZSS  VARIABLE  CONTAINING  THE  */ 

/*  R^TF  COUNT  IS  RETURNED.  *7 

y  #  sj?  5,<  5|:  #  3;:  *;  >;s  :£  #  $  #  j,:  3,5  s{c  3;;  aft  j|«  3;c  3^  j,*  s,«  3;:  3|e  3;:  a,:  :;c  3',:  #  3|t 3,: :;c :;c s,s  s;t  / 

A  1.5  M  XSOFES  £T :  PROC  ACER  PUBLIC? 

DCL  A  ADD^.B  BY TT ’ 

A  ,base=type$loct; 

CALL  S  ZTADD  RFTR ( 4  )  5 

EC  *  FILE  (S  ER  (  BYTEPTR  (  C  )  ,3)  AND  FORYNASE)  •-=  7  AND 
(  BYTEPTR ( l )  AND  FOBYYA 3H  >  =  TY  PESZ \TR  v  ; 

CALL  S  7T  AST  $DN (?) ? 

rasb=addr?tp.;  call  setaddrpt- (4); 

TYPES  LOCT  =  EASE,* 

END ; 

/*  -~?F  WE  HAVE  EITHER  A  SCALAR .SUBRAN  r-E ,  POCLEAV  ,  OR  CHAP 
TYPE  */ 

B=  SPR  (EYTEPTR(C) ,3)  AN T  F C Rv y A  3 K ? 

I  s’  (^YTFPTR  (  2  )  1  ND  FPRUy  AS  7  }  =  T  Y?F?  EN  TRY  THE1. 


IF  E  =  0  CR  ?  =  1  THEN 

do; 

CALL  FRDOF (  'IA  '  )  ; 
l~2; 

RETURN  DOUBLE ( 3) J 
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V-  * 


T  T 


:-z\  /■■■■ 


?  -  2r  5 

=  EC  S  7  A  ?.  S  TY  P  f  RZCS  NS  : '  =c  -  a?  stypz ; 

T7UPM  DOUBLE ( ^  » 

-  '■  *  f 

/*  I r CLEAN  */ 

F  -  CSV A? STY? ( r  ECS  N ST ) =3CCLZ 1 N  S  TYPE • 
p  =  return  :o;;-LE(r); 

nti  r  • 

Z'U  ♦ 

/*  CCMPL-Z  ^YPE  */ 

IE  ((  ? YTEPTR  f Z )  AND  EOPUMAS"'  O  TYP^SDCLE  C- 
( (  B  O  2  )  AN  I  (  ?  <>  1  ))'  TEEN 

do; 

CA  LL  i3?  ^R (  '  I A  '  )  ; 

E=2;  RETURN  ECUELE ( r  '  ; 

END ; 

17  TR  =0  TEEN 

rc;  /*  SCALAR  TYPE  */ 

PEC  5  YAP  STYP( REC  $NST )=CCM?LEXSTYPE ; 

CALL  S  E  T  S  ?  A  5  T  S  ?  N  (  7 )  ; 

RETURN  T^UELZ  f  r YTEPTR  (  0 )  +1); 

end; 

/«  SUP -  A N C-E  TYPE  */ 

pec  sr ar  sty? Uzcsnst}=cr:sty=e: 

CALL  SETA  DDR  FTP ( 11  ) ; 

RETURN  a dep ftp; 

END  A  Ls  N  L  X$CEES IT  J 


^  Rp  v  V  ?i*  ?,£  A*  J,*  A*  v  A*  A*  A'  ^  A'  A'  A*  A,*  A’  A*  A*  A*  A'  A'  'I*  v  A*  A'  A'  A*  A*  A' 

#  ALLOCATES VARIArlES  -  THIS  PROCEDURE 

*  CALLED  TO  ASSIGN  PRT  LOCATIONS  FOP  E 
-  OF  TEE  PROGRAM  VARIABLES.  * 


»  ;Jj  j|j  j*»  J;  ;J*  J»  jlj  *’»  »■»  *■*  *>»  «'*  •'»  J«  >'>  >*<  »'»  J<  »>»  *Jg  «'*  •<>  »•*  «'»  J>  J<  »*j  j1*  jJj  » 


I  s 

a  0 


<***7  / 


ALLCCSVArS  :  PROC  PURL  I  C  5 
TEMP^YTZl  = 

CALL  A  LLC  ^OFFSET ( TYPE $LCCT  ) ; 

mTMPlYTE  =  V  A P  S ? T ^  J 

CO  VAR  $FTR  =  Z  in  TZMPEYTZ; 

?  A  S  E =V  A R  $  5  AS  E  C  V  A R  $  P  i  R )  J 
CALL  STTABDRPTF.  ( 4 ) ; 

IE  SFS(5YTEPT?(3) ,7)  T“ZN 
DO  ? 

PYTEPTP(C)  =  (  3YrnEFTR(C  )  )  CR  (  5  CL  (  J  LC  C  P  AS  I  C  T  Y?  ,U  • 
VA? 4 ENTRY  )  J 

A  °TP A  DDR  =  VARS  BASE1 ( VARSPTR  ) ; 

ADDP  D Ta  =  ALLOCSADuR; 

ALLOC  SAD DP  =  ALLOC SADDR  +  2J 

end; 

TLsr  bo; 

RYTZP?R(3)=S”L(  ALOCBAS  ICTYP,  3''  CP  VAFSETrY! 

IF  I E YTEPTR ( ? )  =  2TP)  ANT  (TZM?ZYTF1  =  2!  T?Z\ 


r 
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A  ?  i.  R  A  I’i,"  -  r'yrSL'.vi  ^  t  ; 

a Lies ctt  =  a.::?.?*75; 

>ND?  1?  TF^BYTEl  =  2  T"FN 

rn ; 

APTRAIIR  =  TYFZ4L0C?  cJ 

A? TRADER  =  APTRAED*  ~  ’7rZ? TRH)  -  i: 

aptra  fir  =  A:rDP,:=  +  5; 

ALLC4CTY  =  ADIRPTb; 

F.'ir;  */ 

A  ?  T  ?  A  D  t  *  =7  A  R  4  3  A  5 1 1  { 7  A  R  4  ?  I  ?  '  ♦ 

A 1 1 R  ?  T  H = A  L  L  C  C  4  A  r  r  R  > 
»LLCCSAELR=»LL0CSArLP+ALLCSC7Y; 

z\d; 

a  ?  ?  r  a  r  r  ? = a  p  t  r  a  r  r c  +  ?  ; 

ADr??T?=mYPZ4LCCT; 

7  V  n  • 

H'ui 

T£V??YTF1  =  fj 
FNP  »ILCCSYi°S; 


•  ,5  *•* »*»  »•<  «'< »•*  j-  o#  »'<  «<<  *».  «i«  s'»  **»  »'*  •>««'»  \>«  «■««><  «3» «v  »•»  ■>*«  .■« «'*  %'«  »'<  *'<*  «<#  »>»  «■'  *•«  *■«  «'•  »'•  «'< 

,,,  *,»  /,<  *,»  »,«  7|%  «y»  *,»  3,*  »,»  «,«?!%  *,»  <,5  *,•  *  •  »,*  v  *,*  /,»  V  '1*  *l»  V  'I*  *«'  '«»  V  *1*  »!>  •  .  *,» 

5  C 1 S 1 4PT? FTP  -  THIS  PROCEDURE  IS  CALLaE  TO  * 

*  SET  s  VARIABLE'S  APPROPRIATP  TYPE.  * 

,»  v  Jt*  «[!  v  v  v  »(♦  5|S  JjS  5j*  )|s  v  v  v  »i"  *»*  v  v  »*«  V  '1*  *»*  v  «(<  v  v  v  v  V  *«*  'r  *i'  *,?  *.•  v  V  tfi  »,»  »,»  5,J  *tI  »,  ■  I,S  ^ 

"4  ?TR  ?TR  :  ?ROC(A)  PUBLIC  » 

FCL  A  byte: 

TO  CASE  A  ; 

CASE  0  ORE  VARIABLE  */ 

re; 

?T°PT?  =  1C5* 

CALL  5  ET  4?AST4  ??v  ( 9  )  ; 

F  A  S  E4LOC  (  S?  )  -  AE-IRPT?.:  /*  AEIR  OF  PARENT  */ 
end: 

/*  CASE  1  INTEGER  VARIABLE  */ 

PTRPTR  =  09HJ 

/*  CASE  2  CHAP  VARIABLE  */ 

PTRPTR  =  3?E» 

/*  CASE  3  REAL  VARIABLE  */ 

FTP  RTF  =  3  A E ; 

/*  CASE  4  COMPLEX  VARIABLF  */ 

IO:  /#  ARRAY.  SUFRAMGE.  USER  IEFINEI  TYPES  */ 

TEMP  A  DDF  =  BASE!  /*  S  TOR T  VARIABLE  S  BTL  LOCATION 
CALL  5ET4PAST4PN (9)  I 

pare  =  Arrp^T?; 

GALL  S  ETA.EDF  ?7R  (  4 )  » 

I~  r YTEPTP  ( 0  ^  =  17u  TPVN  /*  A. R 75 AY  */ 

re; 

*  FTP A  LDP  =  APTRADDR  +  6; 

T-MPBYTEl  =  PYTZPTR ( 3  )  » 


FLSr  IF  (  BYTEPTP  ( 0 )  AND  0  F" )  =  OPE  TEEN  /*  SUBSANC-E 


TYPES  */ 


7EIYPBYTI1  =  3" F  (  BYTE??- [d  )  ,  p.  )  J 
ELSE  IF  BY"'Z?TP(2)  =  THTN 
fc;"/*  USE?  DFEI NED  TYPE 
T5r?BYTEl  =  0? 

CALL  SET*?AST$PN  ,r<)  ’ 

RASE  =  AEDRPTP  J 
CALL  SETADDRPTR (4 ) » 

IF  FYTSPTR  (  0 }  O  27H  THEN  CALL  ER^C?  (  'US  '  ' ", 
/*  THIS  13  A  SFT  TY?F  */ 

CALL  '5E7AEDRPTP  (  5  )  > 

?*S"£ LOG'S?)  =  ALEP.PTR;  /*  A r DR  CF  PAF.FNI  */ 
end: 

ELS"  IT  SYTEPTP.  (0)  =  3?E  THEN 
LO;  /*  POINTER  ■■'/ 

CALL  SETA  LDPPTR ( 5  ) » 

PASEUOC(SP)  «  ALLP.PTH;  /*  ALCR  OF  PA? -NT  */ 
eni; 

FL5F  TEKP3YTF1  =  0£H» 


CASE  TEKPBYT7 

PTRPTR  = 

10EJ 

PTPPTF.  = 

03h; 

PTPPTF  — 

cph; 

PTRPTR  = 

c  ah: 

PTRPTR  = 

pch; 

-3 

!d 

*\J 

‘rTf 

II 

cs-:: 

pn^  m -q  _ 

pc-: 

D;  /*  CP 

CASE 

BASr  =  ?EivPADDR  >  /*  RESTORE  or  IC-I  \AL  HASP  LOCATION 

/ 

ene; 

/=;:  CASE  5  BOOLEAN  VARIABLE  */ 

PTPPT'3  =  06H; 

ENL;  /*  OF  VARIABLE  CASE  */ 

END  C AS FiPTPPTR * 


/  >;s  #  *:*  Si!  #  if  #  if  if  *  if  if  if  Hf  $  #  if  if  if  if  if  #  if  sjs  *  if  s,’:  #  #  sjt  if  *  *  #  sis  if  3j;  jjt  j|;  # 


*■»'  '1*  *.*  *»•  * 


/.** 

- 

/* 

/* 

/* 


SET$VAFIA3LF$TYPE  -  THIS 
TO  SET  THE  VARIABLE  TYPE, 
ADDRESS  OF  THE  FASIC  TYPE 
VARIABLE  'LOOKU?$ADD?'  IS 
CALL.  #/ 


PROCEDURE 

VARIABLE 


SFT 


IS  CALLED  */ 
SION, A  NT  */ 
AEERESS-/ 
P15  TOR  TO  TH'F  -/ 


/  >!:  s'.:  #  j|s  #  :|s  if  #  J1.:  *  if if if  if  if  if  if  if  if  it  if  if  if  if  if  si:  if  *  if if if  if / 


SPT$VAE$TY?E:  PPOC  PU3LICJ 

SST$TY?5NilOC:  PPOC(A,B,C); 

TCL  (A,  B,  C)  BYTE; 

CALL  SET$PAST$PN(A  )  5 

IF  ( H=34H )  OR  (T5=35H)  OP  .'B=0fc'^)  OR  (*-UF 
PRTADLR f  SF )  =  APTRAEE?  J 
FLSE  PFTADBF (S?)  =  ADDRPT?  J 
TYPF^STACK(SP)  =  (?  OR  P."L(C,  ?))? 

ENE  SET<TYP*fi$LCC: 

^as^  =  loosup$ader; 


HFN 
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"it  ’  <5  Tm  s  T)T|C  PTC  (  j. '  j 

tOs^FlFirTS?}'  =  3YTFPTR  '  4  )  ? 

TO  C?Sr  •  ?ORY$FI ELL  f  c  P  '  AND  i  C?..v,v4  S  7  ) ; 

* 

/*  CONSTANT  FNT?v  */ 

rc : 

S  ION  S,rALU  =  ?cs; 

Do  CAS?  (5HR(?YTFP:?(4),3)  ANE  <33H<; 

/*  FINE  OUT  VHAT  KPT  OF  CONSTANT  IT  IS  < 

LC  WHILE  (S3E(3YT?PTP.(P)  ,2)  ANE  '  =  2', 

IF  (  SHR  ( RYTFPTF. '  4  t  ,5  ^  ANT  31H)  =  31H  IFF  N 
IF  SION  i  V  ALU  THEN  SKNSVAIU  -  N  Fr  ; 

VLSI  SIGNSVALU  =  PCS.* 

CALL  SFTA  DDRPTR ( 6) J 

if  not  lookup  $p’i  a  yf  taper  a  ir  ? )  t:tn 

t>  c  ; 

CALL  F?P  0D  (  '1C')’, 

RETURN  5 

fit; 

CALL  SFTADERPTR (4) ; 

IF  (PYTFPTR(O)  ANE  FC?VVA5K'  <  ^  COilS$FNT'DY  THEN 

do; 

CALL  FRP.O?  (  ' I C  '  )  ; 
return; 
end; 

F  N'  C  > 

/*  INTFC-FR  nR  FOOL  FAN'  CONSTANT  */ 

TV  R  A  S 7  <  .N'vrepY  TRFN  /*  BOOLEAN  */ 

CALL  SET^TYPi  N$LOC  (9 , 4E,  PCS  ! 

ELSE  /*  INTEGER  #/ 

CALL  SET5TYPS  N  ? LCC ( 7 , 5 U , 5  I G!!  $  V  ALU } 5 
/*  RIAL  CONSTANT  */ 

CALL  SZT$TYP$N$LOC (7,6E.SIPN$7ALU )5 
/*  STRING  CONSTANT  */ 

CALL  SrT6TY?i\‘$L0C(7.?F.a); 

F f! I ;  /*  OF  CASE  */ 

FNE  ; 

/*  TYPE  ENTRY  */ 

' 

/#  variable  entry  */ 

ro; 

IF  SHR(FORy$FIFLL(S?) ,71  THEN  VARPARU  =  TRUE  J 
PTRPTR  =  (  SF.P  (  ?OEiv.$pI ELD  ( SP  )  ,3  )  AMD  FORvTASK); 

BAS  E  ^LO  C  ( SP  )  =  BASE?  /*  SYf'POL  TABLE  LOCATION  op 
VARIABLE  ”/ 

CALL  caseptrptp(ptrptr) ; 

CALL  SET$TY?$NHOC  ( ?  ,  PTPPTR  . 2  )  ? 

FNE  ; 

/*  PROCEDURE  ENTRY  */ 

;  /*  NO  3UCR  THING  EXISTS  in  PASCAL  */ 

/*  FUNCTION  ENTRY  */ 

do; 

IF  FORf*<FIELD(S?)  =  SUIL'T$ri5?l:NC  THEN  /*  qTTiLT  IN 
FUNCTION  */ 
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r  • 


"ILL  SZr"  S  ?  AS  iS  ?.«  (  Q  I  ; 

Ir  PYTEPT?  (  3  '  <>  13?  T 'JI\ 

IE  EYTvr  I’H  '  ?  )  ^ >  /T'J- 
DC: 

CALL  C A  SEPT  R?TR  CD''Tvp;R  {<>)); 

TYFI$5T ACK  (  S?  '  =  FT?."??.: 
end; 

A  PTD  A  LDP  =  APTRADDP.  *  1? 

PA. RVN  I'M  (  P?  )  =  PYTSFTR  (Z  ' ; 

?A?VNUMLCC(S?)  = ~  APT3' 1  DD3  *  i; 

?\r; 

else  ro; 

C  4  LL  SETSPASTSP.J  ( 16  ) ; 

CALL  CA3EPTRPTR  ;  5HR  ( ?  YTrP  T3  (  .-3  3  ,  T  )  A  VL  SCR  MM. A  SX  ) 
CALL  SETSTY?£N$LCC (10 .PTRPTR ,0 ) : 

CALL  SET$?AST$PM(?)  ; 

?ARyNUM (SP )  =  FYTFPTH  (2)5 
CALL  SET^?AST*?N  i'c)  ; 

P.»RM.MCMLOC(S?)  =  ADDRPTP ; 

CALL  SET$PAST$PN(14); 

LABELSTACEfS?)  -  addrrtr; 

E  \j  t>  ; 

Ir  TOKEN  o  18  THIN  P.EADPA  RivS  --  TRUE? 

/*  OTHERWISE,  THIS  WILL  BE  A  FUNCTION  A  5 S  I C  N ~ \ I 
STATEVTNT  */ 

?A3MNTJML0C(S?+2)  =  ?A?r.MU^LCC(  3?)? 

EMI : 

/*  PILE  ENTRY  */ 

• 

f 

/■■-  SCALAR  ENTRY  */ 

do; 

CALL  S  E  ?  $  TY  ?  £  N  $  L  OC ( 7 , 1 1  -  ,  3  )  > 

1T:TR  AIIR  =  APT? A  TER  +  1  ; 

RA3E=L0C(SP)  =  ADDPPT?; 

end; 

ENi:  /*  OE  CASE  */ 

end  spts? a  retype; 


/  *  *  ❖  *  *  *  *  #  #  sjs  s*e  #  *  «  #  *  3(c  #  *  *  «  *  if  if  a[s  #  #  sje  ajs  #  *  sjs  #  *  £  #  j{s  :|j  #  $  5;s  jjs  »|s  s»e  *  #  *  #  / 

/*  L0AD$VAF  I  -  THIS  PROCEDURE  GENERATES  T3!  */ 

/*  INTERMEDIATE  COTE  TO  LOAD  THE  NEXT  VARIABLE  */ 

/*  ON  TPE  EXECUTION  STACK  OE  TRE  OEJECT  FILE  * / 

/  *  *  *  *  *  *  #  *  *  *  =1=  ❖  #  *  *  #  *  *  *  *  #  *  *  *  *  « v 5;:  s|:  * s|; /  . 

LOAD4VAPI:  PROC(PT)  PU-LICJ 

icl  ??  eyte;  /*  pt  represents  a  stack  pointer  */ 
EXPiSTACX :  PROC  J 
DCL  A  3ytz; 

fr.  CASE  ( TYFESSTACK  ( PT )  AND  OFF); 

4  =  o?d$”ype; 
a  =  ord$type; 


a 

i 


=  bcclfmstype; 

-  I  N  TIC-7?  STY  PI  i 
A  =  UNSICN^EXPON ? 

»  =  stringstype; 

A  =  300LFA NSTYPZJ 
A  =  I  ?:  TEGIR^ TYPE  ? 

»  =  u;jsion$ex?on  ; 
a  =  charstypf; 
end;  /*  CP  case  */ 

EXPRESS  $S IK ( ?T)  =  A? 

ENE  EXPSSTACKi 
LOAD:  BR0C  (  A  ,  p,  C); 

DCL  (A,  B,  C)  BYTE; 

/*  C^ECE  17  I0»riN3  A  FUNCTION'  VALUE  */ 

IF  f  Form^FIZLD  ( PT  )  ANT  7 EE )  O  FUN  C$TNTRY  THEN 

do; 

CALL  GEMEATF(A); 

CALL  C  IMP  AT  If  E  )  * 

I T  SFF.(  TYPE$STACX  (PT  )  ,  6)  TETN  /*  ACCESSING  APRAY 

#/ 

call  generate (sub ) ; 

ELSE  CALL  GENERATE ( C  )  ? 

lv  A  =  LPIB  THEN  /*  LOAD  RES’”  C?  3CL  VUM^?  */ 
rn  PTHPTP  =2  TO  (ECDNUMf 0 ' /2  )  J 
APTPADDR  =  APTRAILP  -  2? 

CALL  GZNFEAT*(3Y?FPTR(3  )  )  ; 

CALL  GENERATE ( HIGH  'ATI^PTR' ): 

end: 

IE  5HP(EO?P^EIELD  (?T  )  ,7)  TH?M  /*  VAPlA.BL7 
PARAMETER  */ 

call  generate ( lcdi ) ; 

END? 

ELSE  call  GEN £AEER ( PRO , LA  PELS! ACX ' MP  M  « 

CALL  EXP$S7ACS? 

end  load; 

IE  R2AESTVT  TEEN  RETURN:  /*  GOING  TO  READ  THIS  VALUE  */ 
IE  READ? »RN!S  THEN 

DO?  /*  PEALING  A  SUPPOUTINE'S  PARAMETERS  */ 

IF  (TOKEN  <>  12)  ANI  (TOIBN  <>  c)  THEN  REAL PA  RMS  = 

false; 

/*  mHIS  MEANS  THIS  PARAMETER  IS  AN  EXPRESS  I  ON  THAT 
MUST  PE 

EVALUATED.  AFTER  EVALUATION,  RE AD?»RVS  ’.’ILL  PE  SET 
TO  TRUE.  */ 

ELSE  Dn? 

C»LL  AS  S IGN  $PAPN  S  ? 

CALL  EXPiSTACK? 

RETURN: 

Ffir: 

end; 

/*  IF  LOADINC  A  FUNCTION  VALUE,  GO  TO  THE  CASE  STATEMENT 

V 

I v  ( E0Pv  API  ELD ( MP  )  AND  ?F3)  <>  FUN C ^E-NTRY  THEN 
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oh 


"TY?-*STAC'"  ??'  ;  E3H''  VI  (TYPE* STACK  '  PT  '  <  11 

Z‘<  f*f  IN  CVI  0" 


f  (TYPE*  STACK  (?"’)  AND  ±3?.)  =  iZ~.)  ’?:< 

A HR A  Tc  */ 

CALL  CZNZRATE(LITA) ;  /*  GHNC  TO  LOAE  A  r  HT  A  HR  */ 
ELSE  APT^AEER  =  PBTAEEP  ( PT )  5  /*  C-ClNC-  TC  LOAD  A 
CON’S T A. N'T  */ 

~nd: 


rn  CAST  (TYPE$STASTt(PT)  AND  3??);  /*2*/  /*  C?r  VARIABLE 

*  / 

CALL  I  OA I  (  LOW  (  PHTATIR  (?T  )  )  ,  ?  I C-H  (  PP.TA  I  TP. '■  PT  '  }  ,101  '  : 
/*1*/  /*  CPD  CON  STAN T  */ 

;  /*2*/  :  /*3*/  ;  /*4 */  /*  ^oniPAN  CONSTANT  */ 

CALL  LCAD(iriI,3YTSPTR(?)  .NOP)  J  /*£#/  IV  /:;: 
INTEGE®  CONSTANT  */ 

CALL  LOAlHril  ,  ZYTEPTR  f  0  '  ,PIC-E  .'AIE^PTR  '  )  ; 

IP  TYP?$STACK ( PT  }  =  35 E  TEEN  CALL  GrME? ATE ( NIG T  ) 
ene;  /*£*/  do;  /*  ECD  CONSTANT  */ 

CALL  LOAD  HE  IF  .PYTEPTR  ( 0  )  ,EI  CH  ( AITRPTP  '  )  5 
I?  TYPESSVACKJ  PT )  =  B6H  TEEN  CALL  GEN7?ATE ' NEGB ) 

end;  /*?*/  eo;  /*  string  constant  */ 

CALL  GEN  EPATE ( LES  I )  :  - 

TFMPBYTI  =  HYTEPTR ( 0  )  :  /#  LEN GTE  CE  STRING  */ 

EO  PTPPTR  =  0  TO  TETP^YTE; 

CALL  G  EN  ZR  AT  E  (  A  P  TR  A  E I  ^  +  PmR?T?.'; 
end; 

ene;  /*£*/  /*  poo lean  vapiahe  */ 

CALL  LOAD ( LOW ( PRTAEER  ^ -  T  ' ) ,  E 10  H  (  ?P  TA  DE R ( PT '  )  ,  LOT ) ; 
/*9*/  /#  I NTEO’5’?  VAFIA3LI  */ 

CALL  LOAD(LOV(?PTAUDR(?T)  ) ,  EIGE  (  ?~TA  DTP  '  FT  '  '  ,LCDI  ! 
/*A*/  /*  PEAL  VARIABLE  #/ 

C*LL  LOAD  (  LOW  (  PFT  ADD?  ( ?T  )  ■  ,EIGE(  PP.TA  TER'  PT  ;  )  .LOCH', 
/#*#/  /*  CHARACTER  VARIABLE  */ 

CALL  LCAE ( LOW ( PRTAEER (PT ) ), -IC  E ( PR  TAPER ' PT 1 )  ,101 } ; 
END;  /#  OE  CASE  */ 

TND  LOAD  4  VAR  I ; 


!  is  if  #  Si«  #  if  if  if  sjs  if  if  »;« in  #  is  if  j;:  is  £  f?  if  if  if  if  *  *  if  j|;  #  if  if s;: j 

/*  ASSIGN$VARI  -  THIS  PROCEDURE  GENERATES  T?E  */ 

/*  imtery.ee iate  cole  to  load  tee  left  srru  0?  #/ 

/*  AN  ASSIGNMENT  STATEMENT  ON  TnE  EXECUTION  */ 

/*  STACY  AND  STORES  A  RFSULT  AT  TEAT  LOCATION.  */ 

J  if  t"  tf  if  if  *  if  if  Of  *  if  is  if  if  if  if  is  if  if  if  if  if  *  if  is  i;  # if  if  if  if  if  *  * if  $  $  $  #  / 

ASSIGN SVAPI:  ?POC(LS,  STORlSTTPT)  PUBLIC; 

TCL  LS  *yte;  /*  L3  is  tee  le^t  site  of  ASSV:T  stmt  */ 
DCL  (A,  B,  STORED TYPE )  BYTE!  /*  STORE$TYPE  INDICATES 

TO  DELETE  OR  LEAVE  TEE  CURRENT  VALUE  AT  THE  TOP  0?  TP" 
STACK  */ 

I?  (TYPF$STACZ(LS )  AND  40H )  =  4?E  TEEN 

do; 
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^rp-^'nC’'  'L«'  =  (r’Y?S$STACK  'LS  )  - N  I  0??c  •  5 
C  4  LL  6vMTPATE(7CB3Ji 
END  ; 

715?  CALL  GSfcSAirR(LlTA.P?.T$ArrP'LS'); 

i?  s -  ?( poom Afield ( ls  ) ,? )  te~n  /*  check  ecr  far  i>a?4V7T7?. 

*/ 

CALL  GENERATE  ^  LODI  )  J 
ro  CASE  SXDRESS4S?X(S?) J 
/*  CASE  3  -  OR!  TYPE  */ 

IF  (TYPES  STACEYS)  <>  HR)  A\T  ( TYP7ASTACE '  LS  )  O  13-T' 

TCE4! 

CALL  ERROR! 'AT' ) ; 

ELSE  A  =  2J 

/*  CASE  1  -  INTEGER  TYPE  */ 

IF  TYPES5  TACK ( LS  )  =  3PH  TnE\ 

A  =  l; 

FLSE  do; 

IF  TYPESSTACE  ( L3  )  =  3AH  THEN 

r<^; 

CALL  GENERATE (CNAI  ) ; 
a  =  3; 
end; 

rLS  E  C4  LL  EPFO3!  'AT'); 

end; 

/*  CASE  2  -  CEA R $ TY PE  #  / 

IE  TY?T  $3  TACK ( LS  )  =  03H  TEEN 

a  =  2; 

ELSE  CALL  ZRRO?(  'AT'); 

/*  CASE  3  -  REAL  TYPE  */ 

IF  TTPE4STA.CE  (LS  )  =  3 A H  THEN 
A  =  e; 

rLSE  CALL  ?RRrP(  'Am' )  ; 

/*  CASE  4  -  STRING  TY??  */ 

A  =  2; 

/*  CASE  5  -  BOOLEAN  TYPE  */ 

IF  TYPE4STACX(LS )  =  35H  THEN 
A  =  2  * 

ELSE  CALL  ERROR! 'AT'); 

END;  /*  OF  CASE  */ 

IE  STORE$TYP E  THEN  A  =  f  +3; 

DO  CASE  a; 

p  =  stdb; 

B  =  stdi; 
b  =  std; 
e  =  stop; 

3  =  STOi; 

b  =  sto; 

end;  /*  OE  CASE  */ 

CALL  GZHESATE(E); 

END  4SSIGN47ARi; 


/  #  #  J|;  #  ^  j;:  J*  i;t  # i/t  / 


15? 


/*  THIS  PHOTIC Ur.I  C~ECXS  THE  TO?  MC  */ 

/*  VA'IA -LIS  ON  THF  EXECUTION  STACK  */ 

/*  PROPER  "1Y?  I .  */ 

^  $Jc  ^  •>'  '!•  #  5|s  ir  ;r  #  v  #  •fi  :r  i|-  5,i  s|s  sjs  5{s  jjc  i|:  :;c  s': *■?  sj;  y  r  V  TO  O'  . 

yti  public; 

I?  (EXPRESS  SSTXM?)  -  IXPPE5 S  $  STK  f  y?  )  )  AM 
X?PMSSSTK(S?)  <>  OH 


THIN  RETURN  TRUE? 

I?  2X?R2SS$STX( HP)  =  1H  THIN 

so; 

IP  EXP5 IS  S iS T K ( M?  )  =  3F  ?57N 

co? 

CALL  GENERATE (  C.'JVI )  ?  /*  CONCERT  I  NT  Tr  PCI  */ 
EXPRESS  4  STK ( S  P  )  =3H 5 


Z  T5 


r  /■* 
L 


RETU?*I  TRUE? 

7nd; 

ELSE  PFTUPN  FALSE? 

ENT : 

I7  FXPPES S$S  TX ( SR )  =3H  THEN 

co; 

IF  3  X?  P.  ES  S  S  S  TX  ( M  P )  =  1H  THEN 
DC  ? 

CALL  GENERATE ( CN2I ) ?  /*  CONVERT  SECOND  INT  TC  RCL  */ 
EXPRESS  $  SIX  ^P)  =  5F? 

RETURN  TRUE: 

end; 

ELSE  RETURN  FALSE? 


END? 

IF  IXPRESSSSTX(SP)  =  OH  THEN 
CC? 

IE  EXPRES  S  $STX  (  X.P  )  <>  OH  THrN 
RETURN  FALSE? 

ELSE  CC? 

IE  3AS7$LOC(S?)=BASE$LOC(^?)  THEN 
RETURN  TRUE? 


ENC  ? 


END? 

return  false; 
ENC  CEXm?R$TYPE? 


*  COPYASTACXS  -  THIS  PROCEDURE  DUPLICATES  ?CE  * 

*  STACX  VALUES  STORED  AT  ONE  POINTER  LOCATION* 


*  AT  ANOTFFR.  SPECIEIFr  POINTER  LOCATION.  * 

*  if  if.  X;  Xtft  #X<  X*X*  X=  j;:X<  X:  if  if  if  if  if  if  if  if  if  Xt  Xs  X®  *  X<  if  Xs  X=  - 


j>»  j»;  »•# 


C?Y$ST ACXS :  P?OC(A,  3)  PU3LIC  ? 

DCL  (A,  B)  «YTE; 

TYPE$STACK(  *J  =  TPE*  STACX  f  E  )  ? 
?°T£  A  DDF  (  A  )  =  PPTiADEF.  (  3  )  ? 

EXPP  ES  S iS  TX ( A  )  =  EXPRESS SSTX  (3)  ? 
FORf'$E IELC  ( A  )  =  FP?.*<FIELD  (E  )  ? 
v  AS  ^SLOO ( A )  =  3ASE$L0C(3)? 
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ccpysstachs; 


*•{  V;  «'«  <•*  J*  *■»  %•»  \i<  »•»  »>•  »•»  j«  *•«  •><  »**  *•»  %>•  ><•  •<>  %<•  »•»  »'*  •*<  »•«  •*»  »'»  »'»  *'*  *■<  »'< 

»l*  *»  V  *1'  '1*  »,«  *1*  V'**  'f*  *1*  •,*  »,•  'I*  »|*  'I'  *,*  *,%  '|»  *,»  ',»'!»  »,*  •  '  »■»  *.«  "l»  *|*  'I'  »«•  'I'  »1» 

*  GENEMC^BUILTSI.N  -  THIS  PRCCirUPF  * 

-  GENERATES  COLE  70?.  THE  PUILT-IN  - 

*  FUNCTION.  * 

V 't'  v  'i*  V  •>*  'i'  5,5  5(5  *('  'i*  -i*  »!'  3i»  5(5  '!*  5(C  5,1  5j£  5(5  5j5  5,5  <i”  5»»  »i»  SjS  5(C  5,5  5(?  v  «,C  5(5  5,5  'I'  5,1  5,5  . 


p?oc ; 

*  PTRArUR  =  PAP.riU,MLOC(M?)  -  ?; 

IT?  ( ? v 77? (  f>)  =  1H?)  c?  (BT't’F?TR(0 '•  -  073 
CALL  COPY  $  STACK  S  { I'F  ,  S P-1  )  J 
FIST  EXPRESS^STK^  KP''  =  PYTEPTP'JM; 

/*  C-FN  7?  ATT  THF  NttYCn IC  CCD7  7G?  TEE  3UILT 

*/ 

A. PTF ALL?  =  APTRALD?  -  1! 

70  C  4  F  Z  RY,T'E?TR( ?  )  i 
CALL  GFNZP.ATE(AB5  )  I 
CALL  GENERATE ^ SC?. )  J 
CALL  G7NEPATE(SIN )  ; 

CALL  GENERATE  (  COS  ) 

CALL  GENERATE  ' A.RCTN  )  ; 

C 1  LL  OE NEPATI( IX?  ) ; 

CALL  GENERATE (IN )  5 
CALL  GENE?  AT Z ( SORT  ;  * 

C  1  LL  G'NIPATKCDD) ; 

CALL  G7NZPATK ?OLS)  5 
CALL  GENERATE (EX?)? 

CALL  07N"HATI(TPTTNC  )  5 
CALL  GENERATE  (*OUNL  )  ; 

CALL  GENERATE' CRL ) * 

C 4  LL  G7NE?  ATE ( CHR  )  > 

CALL  GENERATE (SUC C  )  J 
CALL  r.VfJTTJiTWpRTr); 

7 nl;  /*  c7  case  */ 

?\T  0 E N  $ ? U I L T £  I  N  J 


E'l  «?U  ILLS  IN 
)  TFT': 

I  N  7U  V  C  T I C  N 


!  j;:  t,--  =?  #  sis  -f  sis  sis  s*  :?  ij:  j;s  *  sis  sis  *  s 


Is  sjs  sl:3lss;ssl:sls  / 


/*  WP  IT? SSmPI  N'G  -  THIS  PROCEDURE  WRITES  */ 

/*  A  STRING  TO  THE  INTERNEE.  COLE  */ 

^  W  5*C  5,5  5j!  5j<  5jS  5^  5}fi  5,5  5,!  5^!  SjS  5(6  5(5  5(C  5jS  S(C  5(C  5(S  3(<  Sj<  5|5  5(5  5j5  3|S  ;(C  ;(S  ?(C  5({  5(S  5(5  5(5  i(C  Jj' 5j»  5^  »(t  j  !(■  ^  T  ^  S  T  ^  I  M  ^ 

?”oc(NUf7)  public; 

ECL  nu^b  byte; 

CALL  G7NE?ATE(  ><?T3  )  ; 

CALL  GENERA  TE  (  NIT?  )  J 
ENT  V,'?  ITE  ASTRI N  C  J 


/ s(s  :l! Sis  Jls  J(:  sis s;s  s'* jje  sis  sis  s£  s;s Sf  j|:  #  s;c  j;s»^  i^s?  # s£  sis s;s  si*  sis sje >;t s;s  >? s;s i;< :;t  if: y 

/*  VRITEAVARIAELE  -  THIS  PROCEDURE  WILL  */ 
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/*  yt)T  7T  /  "A3 1  Ail?  TEE  CONSOLE 
/*  'T,*::7  I'JT~?y?E.  '’CDF.  / 

y  3,7  »,!  5.*  3,7  5,1  I’t  3,7  <!<  3,7  3,1  3,13,7  3,7  3,7  V  V*!*  3,7  v  3,7  3,7  3,7  3|7  3,7  3,7  3,7  3,7  3,7  3,7  3,7  5,7  3)7  3,7 

PP.OC  INI""?  '  pUr  L I  C  * 

dcl  nuv3  ryte;  /*  :iT,v3ic  C7  «;- 

IF  NOT  RZAD?ARV3  TTJF% 

rc  C  ASF  ZXFHFFSiSTK  (N1?  ' ; 

/*  CRD  TYPE  ■•'/ 

CALL  GENERATE ( V?T  )  I 
/*  I  V TFC  ZR  TYPE  ”/ 

CALL  GENZRATKVP.TI  ); 

/*  C  -  A"3  TYPE  */ 

CALL  GENZRATEfVRTI  ): 

/*  REAL  TY?r  */ 

CALL  GENERATE (VRTE  )  ? 

/ 3js  c^jTijr.  TvpZ  * / 

rc;" 

CALL  VPIU$S?RING(  NUU3  )  5 
RETURN  J 
end; 

/if  BOOLEAN  TY?E  ■••  / 

CALL  GEN ZRATE ( WRTI ) ; 

end;  /*  case  rx p p f ? s < s t ?r ( m ? )  */ 

CALL  GENERATE ( NUUR  )  5 
END  W° I  TEA VAR* 


VI  i  */ 


Pi5(vc 


AP  : 


/  #  *  if  #  *  sjr  >,•;  if  #  j;j  #  *  *  *  s|s it  if  #  a[s  #  ^  #  #  *  *  *  it  if  it  it  ;,'t  it ;,'t  j‘:  if  i, 


/*  READS VA R I A3LE  -  THIS  PROCEDURE  GENERATES  */ 
/*  TEE  I  NTEP!“!EE  I  ATE  CODE  TO  F  E  A  D  A  VARIABLE*/ 
/*  FROM  THS  CONSOLE.  */ 


/  »V  V»  ^ V#  .* •  .**  V*  v'rf  O.  v*»  ,1.  «>.  «>«  • 

/  *>•  v  'i*  n*  O'  O'  O'  '***•'  o*  o»r  o'  'i'o*  o»  o'  o'  o'  o''i*t  o**r  o*  o*o'  »i*  o'  o'  'i'  *i»  o*  o'o*  ». 


,7  3|7  3|7  3)7 3;c  y  T  *  ^  5  T'*  ^  H 


p^oc  puplic; 

IF  ( TYPZSSTACY  ( S'®  )  <  tf9F )  CP  (TYPESSTACSf  5?'.  0 
CALL  ERRCP('IE'); 


ELSE  DO  CASE  ( TYPE  SSTACE  (5  P )  -  9);  DOJ^CASF  INTEGER*/ 
CALI  GENERA TFfRDVI ) :  CALL  GEN$Ar:R  'LI TA  . P3TAII R < $ P ^  )  ;  CALL 
GTN'5'P  AmE  (  STDI  )  J  END;/*CASE  INTEGER*/  BC;/V?AST  BCT#/  CALL 
GFNERATE(»»BV?)?  CALL  GENNADY?. ( LI TA  ,PRTA  DDR { S?  )  )  *  CALL 
C-ENERAT'5’  (STTE  )  ?  END;/*CASE  E  CL*/  T0;/*CASE  JYTS*/  CALL 
GENERATV(pDV) ?  C  ALL  GEN  $  ADD?  (  L I  ?».  ,  PRTADDR  (  3  P  )  )  :  CALL 
GENERATE (STD) ?  END!/*CASF  FYT2*/ 

END:  /*  CASE  ( ?VPSS STACY  'SP )  -  9'  */ 

END  ?VAD$VA  p.; 


/if  if  if  if  if  if  if  if  j|s  if  if  3(t  if  if  >|!  s;t  if  jJ«  if  if  if  if  if  if  if  #  #  if  it  if  if  if  it  if  if  if  if if $  if  *  if  #  if  it 

*  *$I$PPCCEDCRE  -  THIS  PROCEDURE  IS  CAL  LET  * 

*  UPON  RECOGNITION  0?  A  PTTILT-IN  PROCEDURE  * 

*  STATEMENT.  * 

if  itif  if  ifsf  s^;;<  s£#  #»*s;s  a;:##  s;:##  #  v&V  / 

RilSpwoCIDnPF:  ?roc; 
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/*  ?TT7 


? -r:ir 


AS 

T  =r  7 

AS  EL 

oc  ( vp)  ; 

FZj 

L  SE" 

OiC 

7  $  F  M  f  ^  '  ; 

7 

•q_v_2XP 

"O  (  ^ 

-  .  V  < 

)  <  ?7  Trr;(  /* 

? 

n  CAS 

E  (  BY  TFPTP.  {  ?  1  -  1? 

CALL 

C-EM 

ERA"F  {  ?L'7  )  ; 

C  ALL 

07  N 

ERA7F ( OFT  )  5 

CALL 

OEM 

JPA7F  (  P.FSF7  '  ; 

CA  LL 

OEM 

vo /  ^  v  (  7  tvot  '  j 

CALL 

*  A* 

a  ■*  J 

ER ATE ( PACE ) J 

CALL 

OEM 

ERA  Tr ( ME1  )  5 

ni  ;  / 

*  OE 

CAP v  I  EYTEPTP. 

1.3 

7  DC 

C  1  S  F 

( gr^rpxp (£)  - 

ETrRS  v 

/ 

,'i  EVP 

-  j  a  i  ?  e  ; 

nspcsF$sTM.r'  =  ?alsp; 

pEADS5TMlT  =  EALSE5 
REAESS?VT  =  FAL'E: 

VP.  ITE$STiv.T  =  ?  4LS?  ; 

cn ; 

VP  ITESST’MT  =  FALSE; 

CALL  OENZFA  T7  (DUMP  )  > 

en'l; 

emd;  /*  of  cap7  (byteftr (0 '■ 
FND  pSISPPOCEDU?E; 


-  17)  */ 

;  /*  7 API  ABLE 


-  22'  */ 


•i  l  ,v 


/  *■»  j1;  *■»  >*-  »t*  <■<  »i 


>*-  *'*  »v  V*  »■*  »*#  «*•  «'*  *'#  *1#  «A»  \ir  s'l  j.  o>  •><  >«  •'»  *'»  «'<  >'<  %•*  »*»  *'«  *>»  »'»  o«  %*»  «i<  *i»  «'# 

V  'I*  V  *1*  *1*  •)*  V  #|h  «|*  V  *1*  #|«  >!»  •,»  *,»  #,«  #,%  /|*  »  *  * , '  /,*  V 


PP7A"$L!NKS  -  7FIS  PP.CCZDU?.7  REYCVFS  TH1 
SYv^ot  7 A? Li  LOCATIONS  FROv  TFT  a  A  S  H  LA' 


'nc  T’Tn 


SE  irSN 


V  'T*  T  ' 


.  -  .  _r s 
THE  CUP.F E'l T  SCOPE;  AND 
DSCP  lyEVTEE  3Y  OKv.  * 


si  ■” 


•  ■;  to? 

3CCP 


TOTAL  TO 
r  PC  INTER 


IS 


'i*  *■*  'i*  v  v  •>'  'i*  »v  v  v  v  v^»  'r*  v  »i»  #  sj!  v  )|'  5|«  ^  '!*  v  v  »!"  ;I«  v  “!>  5jS  »!*  *! 


m  »•«  J#  \*#  ■  %’ 

.  •>»*  »,-  »| 


ppf a r slimes ;  ppcc; 

TO  WHILE  S^TELSC^PE  >  SCOPE  (SCOPFSN  *r  -  D; 

■°4SE  =  sbtllscope; 

CALL  SETADDRPTPU)? 

IE  (  ('°YTEPTR ( 0 )  AML  FOpr«TASEl  ~  7"'  THEN 

ro  * 

call  setadlh?t?.(?  ) ; 

SP  TRL  3C  OPE  .  EASE  =  ADLR?lp; 

ENT : 

ELSF  do; 

call  SFTA LEPPTP ( 5 ) ; 

SYM’PASE  =  E7'r'E'D",P.  ( 0  '  ; 

CALL  S7TADDP?TP(C) ; 

?A  SHTA3LE ( SYMHA5U  )  -  ADDPPTR; 

CALL  SETADIPp7?.f  2)  J 
SF7PI.SC0PZ  i  PAS 7  =  ADDRPTP; 

end; 


e  Mi ; 

5PTPLSC0?I  =  SCC?i(SCO?lSVUv  -  1)5 
FN’D  PPEAESL  INKS  i 


lee 


CC’J :«?$?.*  EASlTTiS  -  7?I5  PPOOsrjRE  15 
T-E  'irMBr?  C3  BYTES  ASSOCIATED  VITE  - 
COROUTINE  CALL.  TFIS  *  *  I N  EREMITIC 
PARAMETER  *  *  MA  -RING  EEC  Y.  TFZ  EX  I  CUT 
s;:  *  it  ^ 7 t  5  j  v?  OPERATION.  * 

C  C  U  N  T  $  ?  A ?.  A  4PYTES  :  ?  -  C  C  M-:,Th$  OF$  F  A.R  A  ~  4 
PCI  T  "  Y  ?  V  A  L  ADI?, 

(’‘UjYsOFSpAF.AS  .  I  )  PYTF; 

^  7 v; Y A  L  — C  »  ' 

DC  1  =  1  TC  NUY.  tO?£?A?  AS  > 

CALL  STTS?AST$?‘'(cW 
A  ?  T  R  A 1 1  ?  =  AD  I R  P  T  E  +  ((l-l)*3); 

1?  RVTEPTR(7)=0'-  THEN  A  LLC  $  C  T Y=F 
ELSE 

IF  EYTFPTR (2  ■=! EH  THE” 

sllcsctv=q; 

ELSE 

a:lcs:ty=i; 

TTypTf  !  Tr^Tv^y  1  L  +  1  T  T  0  J  ; 

I  N  D  » 

RETURN  TEV?VAL; 
r ‘ID  CCU.'I T S P  A?.1  ; BYTES  J 


*  GE  N  i  FC  N  £  HD E  $  5 1  Z E  -  THIS  PROCEDURE  IS  USED  TO  - 

*  PETERIN'  E  THE  NEVHER  OF  HYPES  At  LOCATE!  IN  * 

*  T”  o?T  TCE  A  FUNCTION  NAME.  * 

GZNiFC'li  FIRESIDE:  ~DOC  ALL?.’,  CALL  SET*?.4  S  IS  FN  '  16  '  ;  IT 
RYTTPTP.  ( ?  )  =  ?3H  TEEN 
RETURN  22  Hi  ELSE 
IE  ?YTZ373  '  ?'  =■  *”  1  ? ?  THEN 
F^TURN  C 9 F ’ 

ELSE 

RETURN  01  Hi 
"‘ID  G^N^CNiFDPSSIPE; 


/  Jr  Jr  Jr  Jr  Jr  «r  Jr  J|S  ;|J  :jc  Sji  v  ;r  Jr  5r  :r  J’r  *r  #  *r  *r  ;'i2  Jr  *r  Jr  *r  J»5  :r  «r  Jr  ?r  v  Jr  *r  Jr  ;r  Jr  Jr  Jr  'r  Jr  Jr  Jr  5r  Jr  -r  ;r  ;r  *r 

PRO  - EC NiFYTES  IZ F  -  THIS  PROCEDURE  RETURNS  "HE  -  NUVR"?  CE 
BYTES  ALLOCATE!  IN  TrE  RRT  FOR  A  PRO-  *  *  CHUFF  op  FUNCTION 
D E C L 4 P A T 1 0 N  .  TFIS  LATA  IS  -  *  REQUIRED  TO  ALL0V  ?»?»  VET^P. 
YAPPING  INTO  THE  ppT-  *  3Y  A  5AV?  OPFRATOP.  * 

»•*  »■»  2*;  •**  *•»  “’s  A  *'*  *  j1*  »'» *».*'/> «•«  *  »•*  j.  »».  v..<.  ,■> ,<«  *•«  %»*  »■.  «»•  *•.  v. .«*  .•>  .v  *•»  § 

,  *>  i  v  'r  v  *r  *r  »,*  v  »*»  *r  »r  »r  Jr*r  '■*  '»*  '■**  -r  *r  V  *r  »r  *r  ***  'r  *r  »r  *r  «■.-  »r  -r  *r  ♦.*  *r  v  »r  v'»'  »r  '.»»•*  *r  v  *r  »■»  / 

POCS^CNS^YTTS  HE:  FROC  AEDRI  CALL  Sr  TADDRPTRU  j  J  IF 
? YTFPT3 ( 0 )  =  24 F  THEN 
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/* 


Sr,rS  5  YPSRLC 
CALL"!  UPOS 
^LCCK  .  IT  I 
TIC \  ?F^ 

ANT  T FI  S  A  I 

■  i uTit’ n^7  .  p 

III  r  Y  'I Z  $  CO  U 

/-.Q77.-  rr  p  y 

PYTF^COUNTI? 
LASTS? FTFLS I 
I  7  ?  CC?~i  N  rY 

~o; 

past  =  P  a  s 
CALL  SF~SP 

a  r  T  ^  ?  T  5  = 
ALLCCSA  :xp. 
CALL  3"^? 

Twcirrs  - 

CALL  OEMS  A 
CALL  C-MSA 
13  YTF  iCOHN  T 


r  /  _  t  : 


pz  a  ■ 


'•  L 

MI 

LOU 

ROC 

A  ^  -- 

^e; 

=  Ji 

r  — 
i.  — 

> 


TERKI AATI  O'.’  OP 
I v  T  ,'J  7  ?  v  r  c 1 

TCF  INSERTION 
?  70?.  RECURS  I ” 

public  ; 

ALL?  , 


i<  ^ 
^  j  fa: 

7  CA LLi 


t  r 

^  T> 


?2"7L ; 
1  TF  Fli 


CALL 
0*  LL 

call 

f'ALL 
C*  LL 
CALL 


vNUvL 
ASTSF 
ALLOC 
=  A I 
AS  IS? 

py^T 

IIP.'L 
LEF  (I 
PP.=CO 

Eer'l 

ASTSP 
EER  •  I 


r  E  'J  S  A 
SP^S? 

CPA'S  A 

C  TT  ^  ^  TC 

"  T  VJ  $  A 

n  y  \*  v  £  rp  T  (  <; 


.  S  P 

'  ■rs  t*  (  r 


OC'S? 

m(ip); 
$ader  ; 

LOCSAI 

m  ( 7 ) ; 
ptp.  ( 2 : 

r  t  r  t~ 

m !?? 

” AT 4  PA 
rr;  -v 

N(io); 
ita  ,  a: 
n (12); 

I  T  A  .  A  E 

a  v  p  ) ; 


-  5): 


/* 

r?  - 

a  a: 

n  ?  A  ’ 
OSP 
?.  A  $ 


SFP  */ 


E  3: 
EL? 
CM  S 

•3  V” 


yvT 
I S  i 


PsCOLM  TP 


"SI" 

CorjM 

3  '  • 


:?? 

rcy 


> 


Fit: 

SETS  A.  vp^rlccx; 


/  yf  yf  %•#  v#  *i#  *•/  %■#  j«  vU  >*>  kU  y*  %>#  %•#  y#  «■#  y#  y# %• 

■  v  v  v  v  v  *im  *i*  ^|-  *i~  v  v  v  'i%  v 

*  Fr4D$AMEi?LCCK  -  UPON  PPCCGNITICM  CF  A 

*  SUBROUTINE'S  r  PA  El  NO  A  ME  PLOCF ,  THIS  * 

*  PR  OOP  EUR  F  IS  CAT  LSI  TO  '’EMIRATE  RZCUIR 

*  CCEP  FCF  UMSA7INC-  TF.P  STFROUTIMP'S  * 

*  ?AF A. YPT TT,S  IN  TEE  EVENT  OF  RECURSIVE  C 

s*s  j’i  !*{  p*  **»  y«  *•»  si«  y<  J»  %•»  y#  «■«  y«  y<  y»  «>.  y«  «•«  y.  y.  y<  y«  »■<  y<  y<  «•»  y«  *<»  **#  y«  y»  y*  y«  y*  «■»  »*»  »*»  y» 

i  ' . *  #i'  *,*  » |»  «|«  #|%  »|*  'p  #,*  /p  *  #p 


S  M 

^  BE 

r:  PPOC 

PUBLIC 

»  • 

J  1 

FA 

5E 

=  ?A7MNUI*LOC(l"P)  ; 

C4 

LL 

SST$?A  ST 

£PN f 12) ; 

C4 

LL 

G"Mi  ADEF. 

(LTTA, 

,  ADEF.PTR  )  ; 

CA 

LL 

5 FT ^ PA  ST 

ipv(i; 

?); 

CA 

LL 

CFN  $AEER 

(LTTA  , 

,  A  ELRPTR ) ; 

C* 

LL 

C~M  FRATE 

( umsp : 

); 
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"•  s t l  rrf^slin^s; 

34  cf  -  p.4  iy  v £j“  30C  ( N1? }  » 

?  '’C- "S'IUV=?  C^?£$NUv-i  ; 

"ALL  CENTRA?  F  (  P  'T  N  )’, 

C  4  LI  STT4?AS'I$FM(’  14) 5 

call  c-™*Arrs(L-i. .  f  addpptr-i  ) ) : 

TrvP  ATLF  =  OOF; 

CALL  OF  N  ^  ADDH ( LDI I . TTUPA  DD?  )  ; 
CALL  ST7$?AST$?N 1 12) ; 

CALL  07N$ADDP(LTT4  ,  ADLRPTR  ) : 
CALL  C'M^ATL  (STH  )  5 
Z'ii  aiAi a*-i sll1:; 


/* 


v»  >'»  y»  <><  «•#  »'»  *•»  vs  V'  V'  V*  Vs  i’S  i*S  l'S  V<  i1 

#)»  »*,  »  if  p,*  #,*  ^  #1%  v  p,'  v  #i*  ^1  V  V 


c  s;t  s;s  j'i  :;c  s|* ; 


FOP.  >' A  RL  $  SHE  POUT  I N  7  -  I‘l  TEE  TV  IN  T  0?  A 
FOPVAPD  DEFINED  3U3?  CUT  IN  ?  ,  TP  I  ALLCCA 
SPACFS  IN'  TFT  P°T  TnT  POUTIN?  4  NT 
A  5  S  0  C  I A  T  TI1  ?A  RAVTTTRS  APT  I^-ALLCC  4  TTI 
VILL  PE  P.T  A  LLCC 4  "ID  AT  TFT  POIN'”  OF  71 
SUBROUTINE'S  ri^INITIO'1 .  * 


'*  %<«  •.!»  «*<  »U  Oo  J 
**,*  v  *.»  y 


1  s<#  *J>  J#  ^  V#  V#  J#  J# 

,  »i«  *,-•  /(*  <]«  »,•  >,*  *»'  '1*  '1* 


"V'TSCUPPTN  :  pPOC  PUBLIC: 

PC'iPT^NUF  =  S  C  0  ?  T  4  N  U  U  -  1? 

4  p T H A 1 1 ?  =  ? AR AMN  UMLCC  *  2; 
ALLOCiADD?  =  ADTPPT?; 

FND  ?\I4S IJppTN  5 


/*;**!*  *s  **  * ** **  #  v  *  *  *  *  >;s  5><  xs  v  =.:  w  *  >r  =;=  * « >:«  ~ : :  *  >s  <«  x* 

''.^Ti-iPA'^TTlPS  -  T  R I  $  P^OC^D"-3'7  13  C  4  L  L  ~  r 

*  CNC7  4  LL  A  SUBROUTINE'S  P4?AyTTF?S  ZA47?  - 

*  RTTM  PFCOONIZID  AND  ENTER  IT  IN  TFF  SYf-pOI 
«  TAPLF.  TFT  NUM3F?  OF  ?  A?.4  METERS  AND  TFIIP 

*  ASSOCIATED  TYPE  APT  T  Z  T  N  STOPZC  IN  TFT  * 


*  SYF'POL  table. 


«  »•»  v#  *>. 


vi.  j,  *1#  .•«  j>  »•»  «•»  •><  J«  *•*  «•«  V*  v#  y«  »•;  «v  •>#  *v»'»  »•»  v*  V'  v»  v*  «*»  »'*  *•»  > 
'j*  7(*  /,*  #|i  V  'f'  #|«  7|'  V  *i%  V  *i**  7,i  V  ^,1  V  V  'I*  '1*  *,*  7,  7^i  '|~  • 


OOT$?»?A VS  :  ?RCC  PUBLIC  5 

APT? A  PDF  =  PAp.AUNUMOC; 
lYTr?TP  ( 0  )  =  PAFAA'NUI*; 
CALL  fntr^rrMtyp; 

END  C-OTSPARA^S  5 


****  / 


/:!;  <:  i'r.  if  i,s  i:  if  a;:  is  j|:  if  3;:  j;:  j|;  3^  3|s  3,.'  3jt  3',:  if  i:  is  3;;  is  if  if  3J:  if  s;s  if  3,c  if  if  if  3;:  is  3;:  3;: 


*  STTiOTJ^TYPE  -  TFIS  PF.OCTDURT  IS  CALLED  TO  - 

*  LOAD  TFT  TYPE  Cv  OPTF.aTOR  US-D  IN  AN  FX-  * 


*  PPFSSION.  * 

if  s’;  if  if  s'f  3|t  3^  3^  if  :^3lt  if  if tf  3*t  3;!  if  3;: 3^  ^ >;<  j:  5v  *.  j.  :>;  3;. 


/ 


S rT$OP 4TTPF :  PROC(A)  PUBLIC ‘ 

rci  a  rytt; 
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7Y? F  S  S  T  A  c y. '  M ?  )  =a ; 

T\j-n  ct"?;pp<nT5T; 


/ 


;;s  3 #  3|:  *  j|:  3;:  #  3;:  3’;  3;:  3j:  3;:  3;:  ^  3’:  s|:  s|: 


-  CALISASPPOCEIuFS  -  THIS  PROCEDURE  IS 

-  TO  G^NERA^F  I'JTHPMFr  I  ATI  COT?  UPC’J  * 
#  IN' VIKING  A  SUBROUTINE .  TWF  NnNBFR 

?a,R.4  v'TTFHS  REQUIRED  IS  ALSA  C^EC^ET . 


s'*  .  *3  N*3  «‘J  \(3  »*«  S*3  'f3  Otf  %>3  **3  3*3  *'3  «>«  O3  V ' 3  s>3  \>#  «*#  %*3  -*>  «f#  kf3  J#  «<3  « ' 3  %l3 

3|*>  ■*!'  3,  *  3|%  4,<  #(%  3)*  3f«  3f«  3^  3|4  3(*  3(%  3|3  3f«  3|»  3(*  3(»  3(«  3,*  3|»  #,»  3|*  3,«  3(\  3,>  3|»  3j,  3,V  3,«  3,*  3|*  3|<>  3,  •  *yS. 


CA  LLS  A  SP^CC  :  P’OC(A)  PUBLIC! 

TCL  A  BYTE!  /*  TRUE  ^R  FALSE  */ 

pr&DPAP^S  =  falsf; 

IF  A  THEN  /*  THE  SUBROUTINE  PAS  PAR SPFTFPS  */ 

do; 

IF  PARYNUM (KP )  <>  FARVNUM<  ??-l  ■  TEEN 
CALL  FRP.OR  (  '?N  ' )  ! 

end: 

I?  SHR(FORf^$FIFLD(YB)  ,2)  THEN 

Dn! 

IF  FOR*SFIELI .(*?)  =  iTE  Tp?K 

call  gfnsbuiltsin; 

ELSE  CALL  B  ?I ^PROCEDURE! 

end: 

ELSE  DC? 

IF  F^PN1  SHIELD  (UP)  =  FUNC  SEN "RY  THEN 
C  4  LL  LOAD  S VA  P I ( M?  ^ ! 

PLS”  DC! 

C A LL^GEN SADD? ( PRO , LABELS T A CE(U?  >  )  ; 

CALL  C-ENERAmEf  DEL)  ; 

tnd; 

end; 

END  CALLS4  SPROC ! 


f  *.<  *  *  #  *  #  #  #  #  X:  #  #  #  J|;  ){s  *  #  *  3i;  3^-  sS  #  s(t  3;;  3|t  s£  if  #  3^  3j.'  3j.-  s;.'  sf  if  if  if  s;:  *  3,::;:  3;: 

*  GOTSFUN  CTION  STIPE  -  THIS  PROCEDURE  ENTERS 

*  THE  TYPE  OF  THE  FUNCTION  INTO  TEE  5YU.B0L 

*  TABLE  AND  ALLOCATES  A  POSITION  IN  THE  PPT 

*  FOR  T^S  FUNCTION  VALUE  TO  BE  STORET  IN.  * 


5|»  V  '!*  V  '»*  Vn*  Jr  V  ^*r  'n  ^  'i»  ^  ^  ^  ^  Y 


'1-  *r  n*  'r  ■»-  r 


V  s,:  5,s 


GOTSFUNC  STYPF  :  PROC  PUBLIC! 

base=parvntjvloc'u?); 

CALL  SFT$PA5T$PN(ie); 

PYTEPTP ( 3 )=SHL (ALOCBASICTYP ,3  )  0?  VARSENTRY! 
CALL  SET$?AST$PN(ie)! 

ALLOCSADDR  =  ADDPPTR! 

ALLOCSADDR  =  ALLOCSADDR  +  A LLC  SCTY ! 

END  COT$F UN CSTYPE! 


J  ^  K'  5,5  »,5  3,5  3*5  3  5  3(5  3,5  3(5  3?  3(5  5,5  3(5  3(5  3(5  3,5  3,5  3(5  3,5  3(5  3(5  3(5  3,5  3,5  3,5  3,5  3.5  3(5  3(5  3(5  5^  3,5  5,5  3,5  3,5  3,5  3(5  3,5  5,5  3,5  3,5  3,5  3,5 

*  ENDSPROGRAM  -  THIS  ?  ROC  HI  3  H  IS  CALLED  UPON  * 

*  RECOGNITION  C7  TEE  END  C?  A  ??CJH»M.  IT  - 

*  P° I  NTS  OUT  THE  ERROR  COUNT ,  CLOSES  THE  * 

*  INTERMEDIATE  HLE,  WRITES  THE  SYMBOL  TABLE  * 

*  FILE,  AND  INFORMS  THE  .  PCSRAMMFa  CE  PROGRAM* 


*  COMPILATION.  ^ 

£  *  #  #  3|:  #  if  *  3J:  *  3*  if  if  #  if  *  #  %  if  #  *  3*  -c  *  £ 

ENDS  PROGRAM  :  PROC  PURL  I C  5 


3(t  3,5  3,»  3(5  3(5  3(*  ?(»  3(5  3^  3,5  3,5  ;(5  3(5  3(5  3(5  3(5  3(5  >(5  ; 


CALL  POINTS  ERROR; 
CALL  RRINTCEARC  '  '  ) ; 
CALL  CRL?; 


IE  NOT  (ERFORCOUNT  >  2)  T^EN 

ro; 

CALL  GFN$ADDR( ALL, ALLOC $ADDR  )? 

CALL  GENERATE (END? ) 5 
END; 

CALL  wp.it$int$file; 

CALL  movessptbl; 

CALL  CLOSESIMTSFIL: 

call  pfint(.('  compilation  complete. s  ')); 

CALL  MON35 

ENE  endsprcoram; 


» si*  S! * *:  ****!<:**  # y;  *  * ;;  s, : -.;t 

-  arraysleclarz  -  this  procedure  determines  * 

*  AND  STORES  symbol  TABLE  I  NEC  ON  iRR’YS.  - 

*  THIS  PROCEDURE  *AILS  TO  MAKE  USE  07  THE  * 

*  PARALLEL  PARSE  STACKS.  * 


*  *  S*  if  J|s  $  if  if  if  if  if  if  -  if  if  *  3;:  3|.  ;;;  if  if  if  if  if  if  if  if  if  if  if  if  ^  -j,  . 


I  3,5  5(5  3,5 


A^AYSDEC LAPP:  PROC  PUBLIC? 

DCL  I  eyte; 

IF  APFYSPTP.  =  -1  THEN  ARE YSFTP=f'; 

CALL  ENT? SCPLXiTYP ( 17H  )? 

AR VS LMS  ADR $PTR=A? YSDMS  AL RSPTR-N  UM  S ARRYS D I v ' 

arrysb»se=base; 


**  / 


ARPYS? 


CA  LL  LIMITS! (NUMS A RRyS DIM (ARPYSPTP  )*4)+£  > J 
CALL  SSTALLRPTF (5  )  ?  /^NUMBER  OF  DIMENSIONS* / 
BYTFPTP.  (0  )  =NUM$ARRY$DlM.(  AFP  Y-PTR  )  ? 

CALL  SFTADDRPTR  (6  )  J  /*ADDRFS S  OF  COM, PON F NT  T Y P f  * / 

aldr$ptr=type$loct; 

CALL  ALLC  $OFFSZ,p  ( TYPES LOCT  )  ? 

ease=arry$pase; 


CALL  SFTADLRPT? (8 ) ?  /*TOTAL  STORAOR  RZCUT^Zr*  / 
ADDP?T?=APRYSCTY( ARRYS  PTR )*»  LLCSCTY? 

CALL  SFTADDRPTR  ( ID)  ;  /^COMPONENT  TYPE*/ 

EYTEPTR (0) =ALOCBASICTYP; 


/ififififiHfififitifififiiifif  if  3;-.  3|t  if  if  if  *  if  sjs  *  if  if  if  if  if  3;:  * * if  if  if  *  *  -  *  -  if  f  .f 


THE  FOLLOWING  COEF  CALCULATES  THE  OFFSET  AND  DIS 
FLACFMENT  VECTORS  FOR  EACH  ARRAY  DECLARATION  a 
FOLLOWS: 
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N  = 

=  D I  KENS  I  ON S  IN  T 

H !  S  A  ?  -  A  Y  , 

UI' 

=  D ISPLAC  EKFNT  V 

FCT^R  f or 

V  ( I  } 

=  UPPER  ROUND  CT 

IT?  ARRAY 

L  ( I  ) 

=  L^VER  ROUND  OF 

IT*  ARRAY 

V  =  r ET  FOR  THIS  ARRAY 


FO?  I  =  j  DCWNTC  1 

IF  I  =  N  THIN  C ( I )  =  1  FI 3 F 

D  ( I )  =  ( U( I +1 )-L ( I +1 )  )-'I  •  I  -1  ) 
V  =  V  -  (L ( I  )*DU  )  ) 


ARRY$PFFS5T  -  0?  / *  IN  IT  FOR  FERtf-rRIO IN  *  / 

SU*R$F0RK  =  N  UK  $  A  R  P  Y  $  D  I X.  ( A  ?  R  Y  $  ?  T  P  '  ; 

D I S  P  £VFC ( SU3R  £TORK )  =  I; 

arrysoffsst  = 

ARPY$CFFSZT  - 

(ARRY$DIK$LOWV»  L(ARY$DKl*  DRAPTP  -  S "  - R i T C ?. A  !  v 
riSPiVi’C(SURRiFORv)  )  : 

SU?P$70RK  =  SUBRSFORK  -  1? 

DO  V,  HIDE  SUBRSFORK  >  2; 
riS?$VEC(SU3R$FCRX)  = 

(  A?.P.Y$DIKS2IVALURY$DK$  ADRSPTR  -  SU3R5FCF*  -1'  - 
ARP  Y  $DIK$  LOW  VAL  (  ARY  S  D*V£A  LR  £?TR  +  3”R?SF0RY  *1  ) 

>1  )  # 

r,IS?^V£C(SUBR^FCRv!  +1): 

APF Y$OFFSET  = 

ARRY ^OFFSET  - 

(  A  R  R  Y  $  D I V  $  L  C  «v  V  A  L  ( A  R  Y  S  D  v  $  A  D  R  3  ?  T  R  *  SUr  ?.SFCRV  )  « 
DISF$VFC (SUBRSFORK)  )  ; 

SUFES  FORK  =  SUBRSFORK  -  l: 
end;  /-DC  WHILE*/ 

CALL  3 ETA DDR? TP ( 1 1 ) J  /^OFFSET*/ 

ADDRPTR  =  ARRYSOFFSZT  *  ALLCSCTY? 

CALL  SETADDR?TP( 12 ) »  /-ADDRESS  C?  DIMENSION  1-/ 

DO  1=1  TO  NUNSARRY$DIK(ARRY$PTR  )  5 

ADDRPTR  =  ARRY$IIKSN(AP.YSEM$AER$?TR  *  IN: 

A? TRADER  =  APTPADEfi  +  2!  /-DISP  7FCICC  ~CF  THIS 

E  l  KEN-/ 

ADDRPTR  =  EISP$7EC(I)  -  A LLC $OTY ; 

APT? A DDR  =  APTRADD?  +  2 ;  /*SZT-UP  FOR  N~XT  DIK-/ 

end; 

TY’2$L0CT=£ASE; 

3B?3L=S3TBL  +  (  (NUK$ARRY$DIX.(  APRY$PTR)*4)+S); 
ARRYSPTR=ARRY$?TR-i; 

END  aray$declare; 


f  if  if  iS  #  #  V  if  if  #  if  #  J*  if  if  *:  <«  #  >|c #  if  if  if  :|s  if  if  if  if  if  >;«  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if 

*  FINDSRELOP  -  THIS  PROCEDURE  rZTERKINES  - 

*  WHAT  PNEUMONIC  SHOULD  3E  GENERATED  FOR  ANY  - 

*  RELATIONAL  OPERATOR.  * 

ifitififlfififiHUftsififitifiifififiUtiiiififiiififijitfifififififififiiif  ififififffiifififififif  j 


16? 


'I' 


'lESHTLCr:  P?.OC  PUBLIC? 

!cl  A  eyts; 

:r  C / S  E  ( TY  5  E  r  ? T  a C " ( M  ?  F 1 ) ~S ' ? 


A  =  ECU? 

A  =  NEC  I? 

A  =  leci; 

A  =  GECI? 

A  =  LSSI? 

A  =  C  B  T I ; 

IF  EX?RESS$STX(SP)  <>  0ED5TYP-  THEN 
ELSE  A  =  XIN? 

END?  /*  CASE  ( TYPS^STACK (y?Pl )-S)  */ 
DC  CASE  FXPPISS  $STX ( 3  P  )  ? 

/*  OPT  TYPE  */ 

IE  f\  =  LSSI)  CP.  (A  =  C-RTI)  THEM  CA 
rLSE  I?  A  <>  XI N  THEM  A  =  A  +  Id? 

/#  INTEGER  TYPE  */ 

?  /*  NO  OFFSET  RE CL  I  RED  */ 

/*  CHAP  TYPE  #/ 

?  /*  NO  OFFSET  PE CU I  RED  */ 

/#  REAL  TYPE  */ 


A  =  A  +7? 

/*  S TP  I  MG  TYPE  */ 
A  =  A.  *  12  ? 


/*  BCCLEAN  TYPE  */ 

?  /*  NO  OFFSET  required  */ 

END?  /#  CF  CASE  EXPRESS  $  SDK  (  S  ?  '  *  / 
CALL  GENERATE ( A  )  * 

EXPRESS  T*-  ( ?'i? )  =  300LEA  NiTYPE? 

END  PINT  SRELCP i 


END  SYNTH1? 


CALL  ERROR (  'C 


T  rp^fiC  (  '0  v  '  \ 


1 68 


s  =ACEvir”E(se ) 


S  l 


'SYNTH?  -  -REDUCTION 


£  7  A  7  7  v 


SYNTK2:  Do; 

LECLARE  LIT  LITERALLY  '  LITERALLY '  ,  EXT  LIT  'EXTERNAL' 
DC L  LIT  'DECLARE', 

-CS  LIT  'a', 

MEG  LIT  '1', 

?POC  LIT  ' PROCEDURE  '  , 

TRUE  LIT  '1  ' , 

4  DDR  LIT  'ADDRESS', 

RAISE  LIT  '2', 

F0R27EH  LIT  'WHILE  TRUE', 

STATESIZE  LIT  'ADDRESS', 

BUILT  $1 N SPROC  LIT  ' 2CH  ' , 

CONS  $  ST R STIFF  LIT  '3  ', 

CON  S  $  MUM STYPE  LIT  '?', 

CONSSIEENTSTYPE  LIT  'l', 

CONSSSITENTSTYPS  LIT  '2';  ICL 

IBENTSIZ  E  LIT  '32',  /-  MAX  IDENTIFIER  SIZE  -  1 

VARCSIZE  LIT  '122',/-  SIZE  OE  V A?C  STACY- / 

PS  TACKS  I ZE  LIT  '46',  /*  SIZE  OF  PARSE  STACKS  < 
HASHT3LSIZI  LIT  '12 6',/*  SIZE  07  HASETA3LE  */ 
BCDSIZE  LIT  '5',  /*  BYTES  USEE  EOR  BCD  VALUES 
MAXSNEST  LIT  '3',  /■'■  ^AXLEVEL  Or  NESTS  EOF.  TY? 
‘RRYSNEST  LIT  '4  ,  /*  MAX  NESTING  LEVEL  EOF.  A R 

-/ 

VAXS ARRY SLIM  LIT  '5',  /*  WAX  ARPi  DIMENSIONS  * 


/#  FORM  FN TRIES  */ 

lablsen try  i it  'e', 
con s$ entry  lit  'i', 
TYPFSENTRY  LIT  '2', 
VARSENTRY  LIT  '3', 
PRCC  $  ENTRY  LIT  '4', 

eunc Sentry  lit  '5', 

FILESENTRY  LIT  '6', 
TYPESDCLE  LIT  '7', 

/*  NUMBER  TYPES  */ 

ORD$TY?E  LIT  'e', 
INTEGERSTYFE  LIT  'l  '  , 
UN3 IGNSEXPON  LIT  '3', 
STRIKC$TYP2  LIT  '4', 
BOOLEAN  $  TYPE  LIT  '«'» 


/*  MANY  OE  THE  FOLLOWING  VARIABLES  CAN  BE  REPLACED  3Y 
USE  OF  TEE  PARALLEL  PARSE  STACKS  *  / 

DCL  MUMS  ARE YSELMTS  (?5 )  ADLR  ,  A??  YSD  IM$LCWYAL  (  ?£  )  ADDF 
PUBLIC,  ARRY$DIMSHIVAL(25 )  A  DDR  PUBLIC,  TEMPSRASF  ADD?. 
EXPSCTR  BYTE,  EXP$CTR1  FYTZ,  DISP$VEC(2L)  ADD R  PUBLIC, 


TS  ' 


■  / 

*/ 

T  C  v  / 

.fays 

:  / 


MAYING 


1 
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A?HY$C  A  DCF.  PUBLIC  , 

S I GNTYPE  BYTE  EXT  , 

VECFTR  BYTE  EXT, 

TYPENUY  BYTE  EXT, 

CONST$PTR  BYTE  EXT. 

STAFTEDOS  ATT? , /*AIDR  OF  PER  TO  TCP  OF  PICS* 
TYPESADD?  ADD?.  EXT, 

TY?E$LOCT  ACER  EXT, 

VAR$F  TP  BYTE  EXT, 

VAF  $P  AR!Y  $PTF  BYTE  EXT, 

A LOCPAS ICTY?  PYTE  EXT, 

ARRviOTY (^AX$ARRY<LI Y)  ADTR  EXT, 

V  A  R  $  3  A  S  E  ( 1 0  )  ADDp  EXT, 

ALLC^OTY  AIDP  EXT, 

TYPE$ORE  SNUY  BYTE  EXT, 

P AREN T$ TYPE  SDDR  EXT, 

CON3T$INDX  BYTE  EXT, 

LOOKUP $ArER  AD DR  EXT, 

CCNSTSPN  $PTP.  BYTE  EXT, 

ARRTiPTR  BYTE  EXT, 

AFRY$DIM APTR  EYTE  EXT, 

PTP.PTR  BYTE  EXT, 

TAG$EB(YAX$NEST)  BYTF  EXT, 

V  A  R  $  C  AS  $  TP ( Y  A  X $ N ES T  )  AIDS  EXT, 

AP $CAS  $V  AL(ivlAX5NEST  )  ADD?  EXT, 

RECAST  BYTE  EXT, 

RECCRD$?TR  BYTE  EXT, 

PECHDDR(ie)  ADDR  EXT, 
pec$par*ad?.(yax£nest)  ADD?  EXT, 

VA  R I A  N  T  $  PA  RT  { YAX  S  N  ES  T  )  BYTE  EXT, 
?XD$0FST$3S?iYAX$i<EST)  ADDR  EXT, 
VARiOESTSBSE(UAXiNEST)  ADD?  EXT. 
CUR$OFST(YAX$NEST)  ADDR  EXT, 
NUY$ARF.Y$DIY(YAX$ARRY$DIY)  PYTE  EXT, 

ARRY iDIMEN (25 )  ATIR  EXT, 

ARY$DY$ADR$PTR  BYTE  EXT, 

/*  CASE  STATEMENT  VARIABLES  V 

CASEiSTK ( 12 )  BYTE  EXT , /*  NUMBER  OE  STMTS  IN 

CASE  */ 

CASE$COUNT  BYTE  EXT;  /#  LEVEL  Cp  CASE.  ST^TS 

/*  GLOBAL  VARIABLES  */  DC  L  BCDNUM  (ECDS 1 7E  )  BYTE  EXT. 
SCO?E( 10 )  AIIR  EXT, 

SCOPliNUY  BYTE  EXT, 

TEYPBYTE  BYTE  EXT, 

PRODUCTION  BYTE  EXT, 

PPViSBTSENTPY  ADD?  EXT; 

/*  COMPILER  TOGGLES  */  DCL 

LIST$PRCD  BYTE  EXT, 

DEBUC4LN  BYTE  EXT, 

/*  COUNTERS  */ 


CUFF 
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* - '  y  y  —  /  n  q  y  sA  V  T  C  O  T  T  »  Z  7  •  C  . 

t  -  -  7.  iA.  »  /  v  £  !  •  - - *  >  -  *  ~  - 


/*  "  l  a  c-  s  used  duping  code  ge:ji?a-icn  */ 

CAC?$5TMT  BYT  v  EXT./*  IN  CASE  STATEMENT 
N  F  ITESS  TM  r  EYE?  EX"./*  I'  V’HITT  STa:EvE‘'T  *• 

?EAE  SFTt- 1  -YTE  EXT  ,  /*  IN  -EAT  ST  A -1 1“  E  IT  vt 
.‘1 771  :a  ^  Sn  VT  BYTE  EXT,/*  GETS  MEN'  RECORD  */ 

D ISPOS  ESST^T  ^YTE  EXT,/*  DI3PCSES  CE  EECCFD  */ 
VA-PAPM  BYTE  EXT,  /*  FORMAL  PA -AN  IS  YA- 1 A "It 

TYPE*/ 

READ?* RMS  BYTE  EXT.  /*  READING  ACTL  *  L  PA  F  A  v  7  T  E  R  c  */ 
PRESENT  BYTE  EXT,  /*  IDENTIFIED  IS  IN  SY^-OL  TA-Li 

^  / 

SIGN  $?LA.G  BYTE  EXT,  /*  SET  V  E  E  SIGN  PRIORI rS  IT  */ 

/*  GLOBAL  VARIABLES  USED  EY  T-E  SCANNER  */ 

CCNT  BYTE  EXT,/*  INDICATES  TULL  A  C  CU v  — S  TIE  L  V*‘CE 

*  / 

ACC  EM  (  1  E  E ,» 7  S  I  2  E  )  3YmE  rXT./*  HOLDS  CTTFFENT  "CHEN  ’•«/ 

/*  GLOBAL  VARIABLES  USED  IN  SYMBOL  TABLE  OPERATIC  MS  */ 
BUILTSIN$TBL(1C)  BY";  EXT, 

?  A  S r  ADD?.  EXT,/*  BASE  LOCATION  0*  ENTBY  */ 

SBTBL  AIDS  EXT,/'*  CURRENT  TCP  CE  SYMBOL  T 1 B LE  */ 
iPTPA.DDF  ACER  EXT,/*  UTILITY  V*M»BLZ  TC  ACCESS 

5  ’’TB  L  */ 

A  DIP.  FTP  EAC  EE  AF TRADER  AIEB./*  CUB  RE  NT  ?  BYTES 
PCI N"En  AT  */ 

BYTEPTR  BASED  AFTP.ADDR  BY"?,/*  CURRENT  r  YTE  POINT  EE 

AT  */ 

?P  I V TM  A,v  7  AEDR  EXT:/*  S~T  PRIOR  TO  100711?  C?  IN TTH 

*/ 


/*  PARSER  VARIABLES  */ 

ECL 

PA?^NCM(PSTa:KSI2E)  BYTE  EXT,  /*  MAINTAINS  NT,MR  ;?  OE 
PARAMETERS  ASSOCIATE!  VJTE  A  SUBROUTINE  *' 

L»3rLSTAC£(PST»CSSIZr)  AlDR  "XT./*  TP A CHS  STATEMENT 
LABELS  */ 

?  AR MN  l'v L C C  (  P  S  T  A  C  X  S I Z E  }  ARE3  EXT,/*  MAINTAINS  .'-7 
LOCATION  IN  SYVBCL  TBL  '/HERE  PARAMETER  IN  EC  STCBBT  */ 

BASEiLOC(PSTACKSIZE)  ADD?  EXT,  /*  STORES  TUE  SYMBOL 
TABLE  A.EE'RESS  OE  THE  PERTINENT  ENTRY  */ 

FORMS El ELD(PSTACXSIZE)  BYTE  EXT,/*  SCORES  TEE  pGrv 
FIELD  "5  SCANNED  IDENTIFIERS  */ 

TY?ES$T»CX(PST‘CXSIZE)2YTF  ext,/*  hcli-s  a  VAPIA ill's 

TYPE  */ 

EX??.ESS$STK(?STACK5IZE  )BY"?  EXT./*  CONTAINS  THE 
TYPES  OF  THE  EXPRESSION  COMPONENTS  */ 

FRTSADD?(?ST»CKSIZ“ 5  ADD?  EXT,  /*  STOP’S  AN 
IDENTIFIER'S  ?PT  LOCATION  */ 

BYTE  2Y? 

(SP.MP.Mppij  byte’ext; 
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/*  v\'EKON  ICS  FOR  BASCAL-SK  KACEINE  */ 

tcl 


NO? 

LIT 

'0',ENE? 

r  T  m 

x  -fc 

'  1  '  T  13  L 

X  *  w  _  x. 

LIT 

'  2 '  ,  LD  I  3 

r  r 

/  — 

O 

rrn 

LIT 

'4', PRO 

LIT 

0  C.  *  O  ,n  A. 

f  „  A  JK 

l:  : 

'6  '  .SAVE 

LIT 

*  ~i 

UNS? 

LI" 

'  3  '  ,  C  N  V  R 

LIT 

'  9 '  ,  C  N  V  I 

LIT 

'10'  ,  ALL 

T  r  ^ 

XJ  A  X 

'11 

LITA 

LIT 

'12', ADD* 

LIT 

'13' , A  D  D I 

L  T  ^ 

'14' .SUE? 

LIT 

1  c 

SUE  I 

LIm 

'16',  KUL? 

LIT 

'1?',VULI 

li  r 

'ic'.riv? 

II" 

'19 

P  I V  I 

LIT 

'20 ' , KCDX 

LIT 

'21 ' , E  C  L I 

L I T 

'22' , nz; 1 

*  TT 
XI  .  - 

'23 

DEC  I 

LIT 

'24' ,GECI 

LIT 

'25 ' , LS  5  I 

LIT 

'26' .CRT! 

L I  T 

'27 

XIN 

LIT 

'26  ' , EQL? 

LIT 

'29 '  ,N  EOE 

LIT 

0  *7  a  '  :  up  ; 

«_■  t  f  J-j  xL  v  .C 

T 

'31 

GEC15 

LIT 

'32'  , LSS? 

LIT 

'  3  3  '  ,  G  R  T  3 

LI" 

'34'  , I C L 3 

in 

'3  c 

NEC'S 

LI" 

'36', LEGS 

LIT 

'37' ,  G  E  0  S 

L  T  ^ 

'38'  ,LS3S 

L . . 

CRTS 

LIT 

'40  ' , ECSET 

LIT 

'41 ' ,N  ECST 

LIT 

'42'  ,INCI1 

LIT 

'43 

INCL2 

LIT 

'44'  ,NEG'a 

LIT 

4d  , 

NEG I 

LIT 

'46', COM 

LIT 

'47'  , COM 

LIT 

'4c '  ,  NCTX 

LIT 

'49 

A  NDX 

LIT 

'60', EOF. 

LIT 

'51 '  ,STCE 

LI  ? 

'EZ'.STCI 

I;  i  „ 

'  C  T 

STC 

LIT 

'f4'.STDT» 

LIT 

'55' ,STDI 

LI" 

'  5  6  '  ,  S  TD 

T  T  T 

XI  1  - 

/  r  r« 

r  f 

UNION 

LIT 

'58' , jTEIF 

LIT 

'59' , I SEC 

LIT 

'60'  | C  N  A  I 

LIT 

'61 

ERL 

LIT 

'62 ' , ELC 

LIT 

'63' ,CN2I 

LIT 

'6-*'  ,MSE? 

LIT 

A  ^  - 

XCEG 

LIT 

'66'  ,  PARK 

LIT 

'67' ,?A?KV 

LIT 

'53'  ,  FARM 

LIT 

/  »  - 

•s.  X 

INC 

LIT 

'70', DEC 

LIT 

'71' , DEL 

LIT 

'72' , \ FT 

LIT 

'73 

SUE 

LIT 

'74 ', LIS  I 

LIT 

'76  '.KASE 

LIT 

'76' ,LOE 

LIT 

'  nrf 

LOD^ 

LIT 

'7*'  .LODI 

LIT 

'79' , R  D  V  3 

LIT 

'80'  ,PDV  I 

LIT 

'31 

PD  VS 

LIT 

'62', ART? 

LIT 

'63' , ART  I 

LIT 

'84'  , V.RT S 

III 

'65 

ruv? 

LIT 

'86', AES 

LIT 

'67 ' , SCR 

LI  T 

'68  '  ,  S  1  N 

T  t  m 
•XX. 

'69 

cos 

LIT 

'90 ' , ARCTN 

LIT 

'SI ' .EX? 

LIT 

'  92  '  ,  L?i 

LIT 

'93 

5  CRT 

LIT 

'S4',0DE 

LIT 

'95' ,EOLN 

LIT 

'96 ' , EXE 

LIT 

'97 

TRUNC 

LIT 

'96', ROUND 

LIT 

'  9  S  '  ,  0  R I 

LIT 

'100'  ,C5E 

LIT 

'101 

succ 

LI" 

'102', BRED 

LIT 

'103'  ,5'EX 

LI'" 

'104' ,  PUT 

LIT 

'10  5 

GET 

LIT 

'106', RESET 

LIT 

'107' ,  REY.PT 

LIT 

'106'  ,  PAGE 

LIT 

'109 

J  Ew 

LIT 

'U0',DISPZ 

LIT 

'111 ' , F>D 

LIT 

'112'  ,x  :?.nl 

LIT 

'l  1  r. 

lie 

F.rv  LIT'114'j 


SCANNER  :?? OC  EXT; 

E.NL  SCANNER.* 

PRI NT$PROP  :  PPOC  EXT » 

end  p«int$?poij; 

ERROR :  PRTC  ( SRRCCIS  '  EXT  j  ICL  SRRCCDE  AIERJ 
END  ^RRCPJ 

/*  EXTERNAL  PROCEDURES  EP. OK'  SYMBOL. SRC  #/ 
GENERATE:  PROC ( CBJCODS )  EXT;  DCL  P2JCGI?  BYTE; 
END  GrNEF  ATM 

GENSALDP:  PRO  C ( A , 3 )  EXT  5  DCL  A  EYTM  DCL  3  ALDP  5 

end  gehsaldr; 

SETADDRPTP.  :  PROC(CFESET)  EXT? 

DCL  OFFSET  BYTE! 

end  setadtrftr; 

SFT$PAST$PN:  ?P0C(CF7SET)  EXT  > 
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tii  'Si  to  to  fn  in  Jr»  o  -vj  n>  n>  rn  ni  ^  rf*  r, 4  r,j 

<v  co  ni  *--*  -0  r/j  co  cj»  »— ■  <7  c^4  u*  c.n  » *  -o  co  r a4  <0  'n  ►-* 


E  NT 


EC  I 


L  CTP3S 
FT?  PAST 


m  73  y  T1 ' 

i?K\  " 


C7K?t57$tJ  A  MI ;  3  ^ C C  ^  A  '  ST 72  EXT 
/*  \  IS  CTS5  FT  EFC71  BA  SF  TO 
ECL  “  FASFE  PRINTNAUE-  BYTE 


DCL  ( LFN  ,  A )  BYTE  ? 
ene  cpxSpptsname; 

LOOKUP $PN  $  II :  ? PCG ( A , I E SENTRY ) 
ECL  (  A  ,  I E  $rN  TRY  }  BYTE? 

EN'E  LOOKtJ???AoID; 

LIMITS  :  PROC  (COUNT)  EXT; 

DCL  COUNT  BYTE; 

ENE  limits; 


PRINT N  Av  T 


i 


v  / 


ENTEP.^VARi  IE  :  P  ROC  ( A  ,E,II$ZNTRY)  EXT; 
ECL  ( A  ,  B  ,  ID$EiJ  TFY )  BYTE? 

ENE  ENTER iVARtl I » 


ALTERA?RT$LOC  :  PRCC  EXTJ 
ECL  (I.P)  byte; 
ene  alter??rt?loc; 

ENTERSSUERTN:  PROC ( A , 3  ,  IE SZ$ TRY )  EXT? 

ECL  (A IE^ENTPY)  3YTE ? 

ENE  2N72P4SUBRTN; 

LOCKUP $ONLY:  ??OC(A)  BYTE  EXT? 

ECL  A  pyte; 
ene  lockup$c.nly; 

C  ON  VPTBCB  :  PROC  (A, 3)  EXT?/*  A=S?/UP/>'P?1  ,  B-PCS/NET  / 
ECL  ( I  ,  J,  EPLA.G  ,EELAO  ,SELAG  »A  ,B  ,N  BASIE  Pr  I  N  ENA  iv'E  FY 
ENT  CON  YRTECr; 


CCNVERTI :  P?OC(A,B)  AEEPESS  EXT ? 

ECL  ( I  , A  ,  B ,  N  BASSE  p?  IN'TNAME  )  BYTE? 
ECL  N UK  AEER; 

END  CONVERTi; 


C  ONVRTtCONST :  PROC (A)  EXT?/*  A=POS,NFG  */  ECL  A  BYTE: 

SHE  ccnvrt^const; 

FNTP$CONS$NTFY:  PROC  EXT? 

ECL  IXINDEX  BYTE? 

ENE  ENTRSCON  SiN  TRY  ? 

ENTR$STR?TYP:  PROC(A)  EXT? 

DCL  A  BYTE? 

SNE  ENTR$STR$TYP ? 

STCPEiCONST:  PROC  EXT? 
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END  5  T  C  P  r  S  C  C '!  5  r ; 

tt7t?va:  ppocidu-i  declarations  y?o\  sym.s-~  **/ 

CRI$ S  Is  LOVSCHY  :  FPCC  EXT ; 

”ND  ord^pislov/schx; 

2  NT*  S SUE  $  N  TP  Y  :  PPOC  EXT; 

PND  *N7RSSU3$NTFY; 

ALLCSOEESET:  PpOC(A)  EXT?/-  TYPESL^CT  -  / 

DCL  A  adtr: 

DC  L  ( A  LLC  $?OHiv  ,  3 )  3YTEJ 
END  allcsoeeset; 

AL$NDX$OP?SZT :  PROC  ADER  EXT: 

DCL  A  ADD?, 3  BYTE: 

END  A  LSNDX^OFESET  j 

ALLOC  A  VARS  :  PROC  EXT  J 
END  ALLOC $VARS; 

CASZSPTRPT*:  PROC(A)  EXT? 

DCL  A  byte; 

end  casesptpptr; 

S*T$VA?$TYPE:  ??nC  EXT J 
END  SETS’LA  Hi  TYPE} 

LOADS”  AP  T  :  PP.OC(PT)  TXT  J 

DCL  ?T  BYTE?  /*  PT  REPRESENTS  A  STACK*  POINTER  */ 

END  LOAD  S VAR  I ! 

A  S  5 1 0  N  $  V  A  ?.  I :  ?ROC(LS,  STCFESTY  ?  r  )  EXT; 

DCL  LS  PYTE;  /#  LS  IS  Tn E  LF^T  SIDE  0 J  ASS^T  SIivT  */ 
DCL  (A,  3,  STOPESTYPF)  BYTE?  /*  STCPESTYPE  INDICATES 
aFETFE? 

TO  DELETE  OR  LEAVE  TEE  CURRENT  VALUE  AT  TEE  Top  OE  TFE 
STACY  */ 

END  ASS IGN$VARI J 

CF.XSEXPRrTYPE :  PROC  BYTE  EXT: 

END  chksexppstype; 

COPYSSTACKS:  PROC(A,  B)  EXT? 
rcL  (a,  b )  eyte; 

*ND  COPYSSTACXS; 

»R ITESVAP  :  PROC (NUMB)  EXT? 

ECL  NUMB  BYTE?  /*  NUMBER  OF  WRITE  PARAKS  *  / 

END  wfite$var: 

READ^VAR:  PROC  EXTJ 

END  read$var; 


5 
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S  C  C?”$ p  -  AN  CF  :  P~CC  TXTJ 

sc^fi-  si»PA\iCH ; 

L  .•>  5  ^  T  S  -  ‘  Z  P  :  PP.OC  EXT; 

end  l»?ilsw»xtb; 

USEPSTYP:  PPOCfA)  EXT? 

Id  A  EYTSi 
END  USEPSTYP; 

S7T SAVES? LOCK  :  P^OC  EXT  J 
END  SETSAVESBLOCK? 

PEALS NS3LX:  PROC  EX'"; 
end  "eadSnsblk; 

i’wriSUERTN:  PROC  EXT? 

END  EWLSSU3PTN  ; 

&OTS?APAv5 :  PROC  EXTJ 
END  GOT  SPAR A V? ; 

3rT$C?STY?E:  ??.CC(A)  EXT  i 

:cl  a  *yte; 
ini  sstsopstype; 

CALLS ASPRCC:  PBCC(A)  EXT  * 

ICL  A  FYTE;  /*  TRUE  OR  T  AL3 E  *  / 

INI  CALLS* SpROC; 

SOT$ET’NC$TY?E:  ??GC  EXT; 

END  gotseuncstype; 

E*’DS?ROGR* M:  PROC  EXT 5 
END  ENDS  PROGRAM » 

ARAYSDECLAPE:  PROC  EXT  > 

ENT  arayseeclare; 

EINDSRELCP:  PROC  EXT? 

END  FINDSFELOP; 

SEJECT  SYNTHESIZE:  PROC  PUILIC? 

IE  LISTPROD  THEN 
CALL  PRINTSPR.nL; 

DO  CASE  production; 

PRODUCTIONS 

##  ##  #  #  *  ##  Jj:  a*###)***,  #  3  s;t  ^  ^  ~  ^  5,  W  #  J.  Jjt  ..  ,;c 

/*  CASE  0  NOT  USED  */  ; 

/*  1  < DX,OORAM>  ::=  <PPCGRAM  HEADING'S  <BLOCKS 
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CALL 

~ML$P- CSR 

/-■■■ 

2 

CALL 

xPlcci:-;?" 

J  »j  r  <  p  3  ,  t3;v; 

"  EA  T I '  G  >  <BLCCa>  . 

/* 

"2 

CALL 

<  CLIO M 

ENDS??. OCR Ay  J 

HRACI.JO  <3LCC<s  . 

/* 

4 

^oc-RAr  :-7Air:->  ? 

CC-RA  Y  <?  =  OG  I  rvM'C>  ' 

/* 

4 

<x 

file  }  ; 

ro ; 

SCO’ESN'U*1  =  <C> 

S  C  C?  E  (  S  CC?E$f<TTv  )  =  sbtbl; 
SCn?FS\W  =  i; 


SNE : 

/* 

c; 

<XFILE  IEZNT>  ::  =  <?ILE  IDEM  T> 

-7 

/* 

» 

0 

"  <XF  ILL  I D  E  N  T  N  ,  <711?  I B  F  N 1  > 

v/ 

/* 

i 

7 

<?F.OO  ILENT>  ::=  <IEINTIEIER> 

■••/ 

/* 

9  <EILE  IE  EN T> : : =  <ILEMTIFISP> 

CALL 

ENTERS VAR$ IT  ( 16, SP, EILEEN  TRY)  J 

/* 

Q 

• 

<r?L0C'O  ::=  <LLP ><CE  ?><?! PXVBPXPiFBPX ST NT?  ' 

*/ 

/* 

t 

Id 

<LDP  >  :  :  = 

CALL 

scopesbhancf; 

11 

LABEL  <LS3EI  ST?.IN0>  ; 

-7 

CALL 

SCO??iBRANCc  5 

/# 

12 

<LAEEL  STRINO  ::=  <LAEEL> 

*/ 

CALL 

LA  BELLAS  IP? 

/* 

13 

"  'LABEL  STPISO  ,  < L A ? F L  > 

i.;  / 

‘  / 

CALL 

lassl$maksr: 

/* 

14 

<LABEL>  ::=  <NU!*3IB> 

•;7 

IE  T 

YPFNUY  <>  I NTEOt?  $TY  PE  L  ? ? N 

CALL  IRRCR('LS'); 

/* 

15 

<CDP>  : := 

*/ 

/* 

J 

16 

CONST  <C0N3T  I7E>  5 

-V 

/* 

* 

17 

< C C N S T  EE?'*  ::=  <IDENT  CONST  DEF> 

*/ 

/?t 

» 

19 

<C0NST  L ET>  ;  SILENT  CONST  r£E> 

*  / 

/■■ 

t 

19 

WIDEST  CONST  C?F>  :  :=  < I BENT  CONST,>  =  CONSTANT" 

*/ 

CALL  emtr$cons$ntry; 

/* 

?d 

< I BENT  CON ST>  ::=  <IDENTI?IER> 

»;:/ 

ro; 

i 

E  LOOKUP  $0NLY ( S P )  THEN 

CALL  ER?.OR(  'DC  ' ) ; 

CALL  3NT5F$VAP$IEf 0  tSP  .CONS $EN ?PY )  J 

^md; 


/*  21  <CONSTANT>  ::=  <NUK3ES'»  */ 

to; 

CALL  COM  VP.  T$  CON  SC  (  PCS  )  * 

EX?PE3SisTK(r/p)=cnNs<NU^A':Y?r; 

VSCPTR=VECPTR+1 
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~vr : 
22 
po ; 


<S i <;vvv'5t-jn 


IF  5  1 0 ?Y?E=N  FG  TFEN 

call  co\vf"$co\5Tv.ni;) ; 

FL5F  CALL  COWDTSCOt\ST;PO?  I  ; 

EX?  R  ES  S  S  S  T  E  C  v p  )  =  C C  u S  $  N  LTy  $  T  Y  D  v  t 
VFCPTP  =VFCr TP  +  l ; 

S  IC-N SFLAG  =  FALSFJ 

in  r ; 

27  "  <C  CN  STAN T  IE~N:T’> 

TO  ; 

EXPR FS  S  $  S IX ( y ? )*CONSi ICZNTiTYPE; 

VFCP T?=nFCPTP+l ; 

CALL  STOP. F$CONST  ; 

enl; 

24  "  <SIGN>  <CP'»S?AN  T  1 1 EN  Tv- 

do; 

IF  S  ICNTYPE-.NFC-  T?E:N 

FX?FFSS$STX(r?',=CGNS$S  IPF'JTSTY^; 

ELSE  EXPRESSSST1"  (  r?  )  =CON5  ;  IDENTS IY  PF  J 
VEC?TR=VFCPTF-‘-l : 

C  4  LL  STCREiCCNST; 

s  i  o  v  $  f  la  g  =  false; 

26  ~  CSTEI.YGN 

rc ; 

EXPRESS SSTX  <  yP  )  =CON S$ SIR £  TYPE  : 

VFCPT?=^1:’CPTP*1 ; 

CALL  STOREiCONST; 

enl  ; 

26  <C0N  STAN  T  ILENT>  ::=  <  I  TENT  I  FI  ER> 

2n  ESIC-NN  :  :=  + 

ro; 

SIGNSTYPE  =  ?ns; 

S ION  $  FLAG  =  THUS; 

end; 

2? 

ro; 

SIG'I^TYP7  =  NEC ; 

SIGNS FLAG  =  TRUE; 

end; 

29  <TDP>  ::= 

CA5ESSTTT=FAL3F; 

22  ~  TYPE  XTY^E  DEF  STRINO  ; 

C4SE$STYT= FALSE? 

21  <TYPE  DEF  STR ING>  ::  =  <TY?E  IT"- 

% 

22  ~  <T  YPE  LEF  STRING^  ;  <  T Y P E  I] 


32  XTYPF  I  L>  ::=  <TY?E  IDS>  =  <TY?Z.’ 


DC? 

A  PTRA CDR  =  TY  PESADD? J 


17? 


aetppt^typzsloct; 
zne  : 

/*  3  4  <  7  Y  ?  Z  IDS3  ::=  <  ILZ  N  7  I  Z  I  ZP> 

ro; 

IF  LrCKL'?£C.\LY(S?^  TZZM 
CALL  T? HCR (  'DT')  J 
?.^  $rpY  PE  =  ST3T -T  ♦ 

CALL  Z'iT^RSVAZi$ir'''7PZfSt5,7Y?Z£Z'i  :ay  ; 

I  v  NOT  PR*’SENr"  T" "  N 

do; 

CALL  LIMITS ^2); 

TYPZ5ADDP=S3713L; 

S5'T’'aL:=SPT'BL+?; 

end: 
vnd  ; 


/* 

35 

• 

<TYPZ> 

::  =  <SIYPLE  TY?E> 

V 

/# 

t 

36 

• 

~  < STRUCTURED  TY?E> 

*/ 

/* 

1 

37 

• 

~  KPOINTEP  TYP?> 

#/ 

/■' 

t 

38 

• 

<S  IMPLZ 

TY?E>  : :=  <TYPE  IDZNT> 

*/ 

/■" 

39 

(  <T  IEENT  STRING >  ) 

■■■/ 

J 

J 

40 

"  <CONS?ANT>  ..  <C ON5 TA \T> 

!V 

CALL  riTR$SU3$N?RY? 

/*  41  <TY?E  I  DENT'*  ::  =  <IDENTIFIZR>  */ 

IF  LOC£UP$PN$IE(SPfTYPE$SNTRY)  THEN 
T  Y?  I  $  LOG  T=L  COKUP  $  A  EDP. ; 

ELSE  DO; 

CALL  ERROR('TI')? 

type£loct=.?uilt$in$t?l;  /*  integer  default  */ 
ene; 

/*  42  CTIDZNT  STRING>  ::=  <IDZNTIFIER>  */ 

co ; 

TT?E$car*N jm=c ; 
call  user  $ ty?( type $ord$nuk) ; 
end; 

/*  4?  "  <T IEENT  3TP I NG>  ,  < I E2NTI*  I EP>  */ 

DC: 

TYPEiOPD  ^ NUiv=TY  PF4CP  D^N UM-^l ; 

CALL  USER$TYF(TY?E$CRD$NUy); 

end; 


44 

< STRUCTURED 

TYPE>  :  :=  <UNPACKEE  STRUCTURED  T YPZ^ 

w/ 

/* 

J 

45 

PACKED 

*/ 

/* 

45 

• 

<IJNPACKEC  STRUCTURED  TYP^V> 

*/ 

/* 

46 

< UN PACK EE  S 

TRUCTURZE  TY?Z>  : :=  < ARRAY  TTFE> 

/* 

> 

47 

• 

~  <R^CORD  TYPE.-- 

>:V 

/* 

f 

48 

~  <SET  TY?E> 

17? 


/* 

49 

• 

^FILZ  :YHF'> 

/* 

52 

< APR  AY  TY?IS  ::  =  ARRAY  f  'IN 

E  F  X  T  Y  ?  7  STRING' 

/* 

52 

<coy?o\?:;t 

TYPE  -• 

CALL 

1  ?  4.Y  SEFCLAF F  * 

/* 

51 

< INDEX  TYPE  STRING'*  ::=  <INE 

FX  TY P F'> 

1 F  A  P  R  T  i  ?  T'R=AF  R  Y  S  N  F  S  T-l  THE  N 

e^ ; 

CALL  FRRCR ( 'AN ') 5 
ARY$DySADP$PT?  =  A?Y§EN$AEF$PTR  - 

NUN**  APR  Y  4E  I V  ( A  RRYY$?  TP. 

"’NT! 

FLS  F  APR Y$PTr=  A?.RY$r?R+l  < 

ARRY$DIN,$?TP=2; 

A  Rvirw$ArR$PTR=AR  Y$LV$  AER$FTR-*-l  J 
APRT$CTY(  AREYSPTF.)  =  ALi.N  DX$0  FFS  IT  J 
AR?Y$ElYFN(A0YiDKiAD?i?TR)  =  TYPE iLOCT  > 
TFN!PRA  SF=EASF; 

BASF  =  typfloct; 

CALL  SETAEDBPTR (7 )  > 

ARRYiEIMiLOV;VAL(  ARISEN  AERi  PTR )  -  ALLPPTP; 

C 1  LL  SYTADDRPTRO)*; 

ARRYiBIMiEIVAl(ARYiEYiADRi?T?  )  =  ADLP.PT?  ; 
CALL  SZTAEEHPTRdl); 

MU^$ARRYStLMTS( ARY^EMiADPSPTR)  =  ADIRRTR; 
SASL=TE^PBASE» 

N UYS.ARRv iEI Y ( ARRYS PTR  '  =  1 J 

7,nd; 

/«  52  "  <  IN  CFX  TY?F  STPIM- 

/#  52  <TINEIX  TY?Z» 

do; 

IF  A  P  P  Y  i  D I K  i  P  TF  =N  A  X  $  A  RR  Y  i  L I  iv’- 1  THIN 
CALL  SRRO R ( 'AD') J 
FLS F  A?RY$DIY$PTR  =ARF Y$DIM$?TR+1 J 
APYiDYiACR$PTR=ARYiD^iAD^iPTR+l ? 

ARRY$0TY( ARRT$PTR)  =  ARRYSCTY (ARRYSPTR )  * 

ALiNDXiOFFSET; 
APRY$DlYEN(A?YiDYiADPi?TR )=TYP?iLQCT  5 

tiyprasf=easf; 

base=type$loct; 

CALL  SETAED?PTR(7) ; 

AP.R  Y  $  E IM  $LOWV  AL  (  AP.  Y  iE  M$  A  E  R  i?TR  } = A  DDR  PE  R  ; 

CALL  SFTADDRPTP ( 3) » 

APPYiEIviHIVA L(APY$DYiAEPi?TR )=A  EDRPTR J 
CALL  SSTAEDRFTP. ( 11 ) » 

N W$ARRY $ ILMTS  (  ARY$DY$AER$PTP  )  =  *EERPTR» 

base=teypease; 

NLTY$  ARRYiElYf  APRYiPTR  )=N  UV$A  RRYir  I  Y  f  APP  Y  $  ?TR 

7nd; 


/* 

53 

• 

<I!NPFX  TYPF>  ::  = 

<S IMP LF  TY?F> 

/* 

» 

54 

<COrPONENT  TYPE> 

::=  <TYPE> 

179 


1 

/*  55  <?  ECC3 D  7Y?7>  :  :=  <?-CO?Ds'  <FI~LD  LIST'-  ENT 

ro; 

’•ariantsfarkp-CsNST  )=false; 

3ASZ.TYPS  SLOOPFCSPAPSAE?  IRFCSNST'i  I 
u  '•  A?*CAsmi  (recast  )  o  0  tr en 
C  1  LL  F?HCP(  'IV'); 

CALL  5ETABDRPT- (5)5 

ALEPPTP.  =FXrsCF5TirSE  (  RZC$NST  ' : 

CALL  C7TADDF.PT?  (?); 

AID?  FTP =  PRV$S??$SNTRY* 

RFC  £.N  ST=REC$NST-i  ? 

fnd; 

/*  55  < P. 7 C OR D >  ::=  F.7CCRL  '-/ 

ro; 

REC$NST=REC$N?T+1  ? 

APTF.ADDR ,  PEC  SPA  R  aALP  l  R7C  S  NS  T  '  =  ST:Tr  L  i 
Arr?.PTR=0002h;  /♦COLLISION  ENTRY*/ 

apt?»dbp=aptraddp.+?; 

ADD?PTR=P?.VSSTTi7NTRi  J 
PRV$SPT$ESITRY=SBTBi; 

APTR  ADD?.=A?T?  A  BER+2  ; 

pytfptr=ief;  /*  for.y  for  pfcop:  ::/ 

S ETEL=S FT EL+9 ;  /*  ALLOW  FOR  REST  CF  ENTRY  */ 

/*  INITIALIZE  P7C0PL  */ 

VA»lAXT$?ABT{»FCiNST) , TAOsFD (R~Ci' 3  T ' = I A  L  S  T  > 
EXriOFST$PSE(?ZC$NST)=02Ot:H; 

VAR 50?ST$  PSS ( RFC  $N3  T ) =00007 ; 

CU'^OFST(  RECAST) =00007? 

V  A  ?.  $  C  A  S  $  V  A  I.  (  R7  C  $  N  S  T  )  =2  0  0  0  5  ? 

R7C0FDSPTR=-i; 

end; 

* 

/*  57  <F I  ELL  LI ST>  : : -  ^FIXSL  P  A  R  T  >  */ 

/*  5£  ~  <F  IXED  ?A?T>  ?  < '’A.R  I A  N'T  PART"-  */ 

/*  5  9  ~  < VARIANT  PART'*  */ 

/*  60  <7 1 XED  ?APT>  : :=  <REC ORB  SECTION;  */ 

0 

/#  61  ~  <F IXED  PART'*  ?  <RFCCRD  SECTIONS  */ 

/*  62  <RECO?.L  SECTIONS  ::=  <FIELI  I  LENT  STRING'*  :  <?Y?E>*/ 

do; 

CALL  ALLCS>OFFSET(TYPriLOCT); 

/*  ALOC  BA  S ICTY?  AND  ALLC  $CTY  ARE  SET  */ 

Dn  PTPPTR  =  0  TO  REC0RD$?TR; 

EASE  =  R2C$ALr-R(FTRPTH); 

CALL  SIT5PAST$?N(S); 

PYTEPTR  =  AIOCPAS ICTY?  ? 

APTRAELE=A?TRADER+i; 

A.DD?.?T?=TY?7tLCCT  ; 

APT?ADDP=AFTRADDR-2; 

AEIR?TR=CUP$OF ST(RSC$NST  )  ; 
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/* 

/* 

/■■■■ 

/* 


/ 

/ 

/ 

/ 


/*  66  < El  ELD  IDENTS  ::=  <  IDEN  m  I  ”1  EP.S  */ 

do; 

I?  F. 7CC?D$??P  <>  1?  TEEN  RECCRSS  ?'.'?.=  ? EC  CRDS  FTP.  +1  : 

ELSE  CALL  IHP^P (  'FN  ' ) » 

RECSADIR  (RECCP.E $PTR  )  -SETIL  ; 

C»LL  FST?P$VA?$ID(?3E.S?  ,'T'YPF$rCL7)  ; 

IE  NOT  PRESENT  THEN  DO ; 

CALL  LIMITS (7) ; 

A?  TP.  A  DDR=S  3TRL  J 

A  E  D  P  P  T  R  =  R  E  C  S  P  A  R  $  A  L  R  ( R  E  C  4  N  S  T  )  J 

SETEL=SETEL+7; 

end; 

IE  VARIANTS? A P,r(RECiiJ ST  )  T:TE'I 
E-c: 

3  AS  E=RZC  SA.DDR  (  REC  OEDSPTR  } ; 

CALL  LIMITS (2  )  > 

CALL  SETAEL?t3TR(4)  ; 

?TTE?TR=CE?~* 

end; 

ENE : 


/* 

67 

<E  ARI  AN  T  PARTS  ::=  CASE<TAC  EIELLXTTPE  IDE' 

J_1>  07  */ 

/* 

67 

• 

<V  A  P  I A  N  T  STRINGS 

*/ 

/* 

» 

6B 

~  CASE  <TY?S  I DENTS  07 

/* 

66 

<V  A  P  I  A  N  T  STRINGS 

*/ 

/*  69  <VA RIANT  STRING  >  ::=  <VAR IAN  T>  */ 

» 

/#  ?e  "  <VAR  I A  NT  STRINGS  )  <V  A?  I  ANTS*/ 


/*  71  <TAS  FI ELD>  ::=  <EI ELD  IDEN  T>  :  */ 

TAC-$Fr  (P.EC$NST)=TRU2; 

/*  72  <V\P  I  AN  T>  : : =<C AS  E  LA3EL  LISTS  :  ( <EI ELL  LISTS  )  */ 

/*  73  "  */ 

/*  74  <CASE  LABEL  LIST>  ::=  <CASE  LABELS  */ 

ro; 

LARFLSTA.CS  ( SP )  =  LABLCOUNT  ? 

LARLCOUNT  =  LA5LC0UNT  +  2J 
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/* 


/ 


CALL  GE  N  $ A  D  D B  ( E  A  5  E  ,  A  L  L  C  $  w  T  Y  )  ; 

CALL  GENERATE  ,T  CV  I  LAE ZLSTACK  'S 15  '  )  5 
CALL  GZNE?ATI(EIC-H(  LABELS"  AC:1  (  S?  )  '  !  ; 

ENL  ; 

75  ~  <CA5E  LAPEL  LI5T>  .  ''CASE  LA 

do: 

CALL  GENNADI? ( Y  A SE , A LLC $ CT Y  )  ; 

CALL  GENERATE  fLO’v  (LAiELSTACK  ( M ?  '  )  '  ; 

CALL  GENEP ATE ( E IGH ( LABELS TACK ( Y?  )  }  ); 

end; 

76  ''CASS  LA£ZL>  ::=  <CONSTANT> 

IF  C  AS  E$  S  TVT  TEEN 

do; 

CASE $S TK (  CA.SES COUNT  )  ~  CAS  It  STE  (  CASE*  C™T\'T  '  *  1} 
DO  CASE  EJ.  PRESS  $  STE  (  S  ?  )  J 
/*  NUMBER  -/ 

ALLC5CTY  =  CONVERTI (5?, ?OS  )  ; 

/*  IDENTIFIER  */ 
do; 

IE  NOT  LOCK  $ UP  $ ON  L  Y  f  S  P  )  TEEN  CALL  E^P^F (  'DT 
ELSE  do; 

base  =  loozup$addr; 

CALL  SET$PAST$PN(7): 

ALLC$CTY  =  ADERPTR: 

end; 

7  Nj  £  • 

/••=  SIGNED  IDENTIFIER  */ 

do; 

end; 

/*  STRING  TYPE  #/ 

enl;  /*oe  case-/ 

end; 

ELSE 

do; 

IF  NOT  VARIA.NT$PART(RECSNST )  TEEN 

do; 

VAR  IAN  Tt FART ( RECiNST  >=TRUE ; 

vapsc4s$tp(rtc$nst )=type$loct; 

VA R ic A S$VAL( RECAST  )  =A  Li  NDX'aO  RESET  J 
CALL  ALLC$OJESET<’TY?E$LOCT)  ; 

IE  TAG$7D  ( RECAST  )  THEN 
lo; 

TAG  $ED  ( P.EC  iNST  )  =FAL5  E I 
3AS3=PEC$ADBP ( RECORD$PTR  ) ; 

CALL  SETAEDRPTR (4)  ; 
bytz?t?.=9Ff; 

CALL  SETADER?mR(5)  ; 

CALL  SETADDPPTR(c*1’YTFPTR); 

AIDRPTR=yAR$CAS  $VAL( RECiNST ) » 

A  P  TR A  DEP  =AP  TE  A  D  DR  +? ; 

ADER?TE=VA.R$CAS$TP  (RECAST  )  J 
APTRA.  DIR=A?TRAriR4-2; 

A  DD  RP  TR=  CUP  $0TST(RZC$NST); 


EL'*-/ 


'•V 
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/* 

/* 

/* 

/-•= 

/* 

/* 

/* 

/::: 

/* 

/* 

/* 


/# 

/* 


/* 

/* 

/* 

/* 


c r  ?.  §  r  s  t  ( 5 1  c  s  n  s  t  )  =  c T;  ?. » c  ?  s  •?  ( ?.  t  :  s  :i :  t  }  -  \  l  i : 

T  ''  **  * 

2  .  •  -  f 

V AP  FST  $  £ S  £  '  P  EC  $ N  S  T  )  =C  u3  i  7  F5  E  (  =  C  S  X  3 E  '  ; 
?7T  SC ^S'”  ^ 3S E (  °ZC-N  5T  )  =CTJH  5 CTS  *  (  ?-7C  S  'j  ST  ■  I 

:nd  : 


/*  CALL  C0VT> AREACO.N  5E$  VARI A \’E  ;  */ 

/*  CHECKS  THE  CAS?  LA3LJ  VIT?  ?H?  '‘ARIANE  7 
C!JR*07ST  (REC$NST)=VAR^F5T£-3?(?FC  SN5E 
VSC°TR=VECPTR-1 ' 

CONST$PTR,CO.iST<I;JDX  ,CONST$?NiPEP  =  ?; 

E  N'D  J 

76  6SZT  ?YFZ>  ::  =  SE?  0?  -TEASE  TY?7> 

CALL  FHTF.$STB$TYF(??H)  ; 

?£  <2AS?  TYPE'''  ::=  <SI.V?LE  TY??> 


79  <FILS  TYPE>  ::=  FILE  OF  <mY?E> 

CALL  ZMP5STB$TY?(2FH); 

c0  ^POINTER  TYPE>  ~  <TY?E  IIENT> 

CALL  FNTR$STR$TY?(37E ) J 
£1  <VDP>  ::= 

SC0P5(SC0PESNUK'  =  SETEL5 
82  "  YAP  <7 AR  DECLAP  STPI.iO  J 

scnpi(scnpESNUK)  =  sptpl; 

< V A R  ESCLAH  STPINC-'>  :  <7»?  I  E C L A R > 

< V A ?  B^CLAR  SE? 
<7 A?  r 7 CLARA 


83 


£4 

£4 


v 


r  *:  -  v 
.  U  > 


/ 


£5  <VA?  DECLAR>  ::=  <IDZNT  YAH  STPINO  s  <~Y?TS- 

ro; 


CALL  ALLOC?  VARS.* 

end; 

£6  TILENE  VAR  STP.I  NG>  ::  =  TIPENEI  "I  £?> 

re; 

VA???T?  =  0; 

P AREN ?$ TY ? E, VARS BASE (VARPTR )  =  SpcpL; 

CALL  ENT?P?VAP$IE(0,SP  f yap. gentry ) ; 

end; 

6°  **  <  I  TENT  VAR  SEP  I NO  >  , 

87  <1  LE.'i  TI  ?  I E  R> 

I?  VAPPER  <>  10  THEN 

ro; 

VAR  5 P TP  =  VAR$PTR  +  i; 

VARiRASE(VARiPTR)  =  SETBL; 

CALL  EMTER*VARiID(e,SF ,7 AR  £ ENT R i ) ; 

end; 

ELSE  CALL  FP.ROP  (  ,TTN')  ; 

68  <??.FrD>  = 

CALL  SETSA7E$3LCCK; 

£S  ~  <FOPF  DECLAP> 

CALL  setsave$ilcck; 

90  <?0R F  DECLA P>  ::=  <PFOC  CP  *UNC?>  ; 

91  ~  <?0R ?  DFCLAF. N  <PROC  n*  fu VCT> 


*/ 

■■■■/ 

*/ 

*/ 

*/ 

*/ 

■■■/ 


*/ 


*/ 


*/ 

*/ 

•;=/ 
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/'■■- 

/* 

/'■■' 

/* 

/* 


92  0?.rC  nR  EUNCT'  ::=  <??.r 

CALL  PEA  IAN  StL'I ; 

07 


94 

CALL  HEA. T $% $ 3LK  J 

QC 


<?Hocz:”F.T  -i a ; i \  g'  ::-iCw7 

<?T,,1  CTIC'i  HEADI.»G>  'BLOCE' 
<FTN  CT  If  N  READING >  <:i  =  iCTIVZ 


> 

Cf: 


1  . 


/* 

/* 

/* 

/* 


/* 

/’•' 

/* 

/* 

/■■ 


/* 


/* 

/* 


2  D I  ?  EC  T  I V  L  ">  =  <1 DENTI^I EP  > 

17  N  CT  LOC\U?$CNIT(S?)  THEN  CALL  EE ?TR(#:- 
ELSE  lo; 

EASE  =  LOOKUP  $  A  DIR ; 

CALL  SETADLErTF  (  7 ) ; 

IF  ? YTE?T°  =  21  TEEN  CALL  F'a'D^SUP’TN ; 

end; 

9?  <??0  CEDURE  HEAD!  NO  :  :=  <?RCC  ID>  ; 

CALL  GOTiPAP.AKS; 

S0  **  <?RCC  I D  >  ( 

99  < E C P N A L  ?»3A  SECT  LIST'  ! 

CALL  GOTiPAEAlSS; 

99  <?P0C  I L>  ::=  PROCEDURE  ^IDENTIFIERS 

cc; 

PA^APMT  =  2» 

CALL  E.NTER$St"ERTN  (  0  ,S?  , PRC C  £EN  TRY)  5 

r; 

120  <F0?KAL  PAF A  SECT  LI5T'>  :  :=  <?CF.V.AL  ?.A?.»  SECT' 
CALL  ALLOCSVAES; 

101  ~  <~ohn:al  para  sect  lists 

121  CFGRNAL  PAPA  SECT'-’ 

CALL  allcc$vars; 

102  <ECEMAL  PAPA  SECT>  ::=  <?APA  SRCl?> 

10?  ~  F A ?.  <P A~ A  G?.0U?> 

ro; 

TEN'PPYTE  =  VAPAPTF; 

EC  VAC  SPARES PTE  =  0  TO  TE^PRYTE; 

RASE  =  YAEBASE  ( VAR$PARM$PTS  )  ? 

CALL  SETADDEPTR ( 4 ) J 
ETTEPTR  =  BYTEPTR  OR  92HJ 

end; 

end; 

104  “  FUNCTION  <PAP.A  GROUP' 

do; 

TEN'PBYTE  =  VAFiPTR? 

DO  VAR$PARI*$PTR  =  0  TC  TEMPB  YTE ; 

RASE  =  V AF.BASE  (  V AF. $ P A. R M $ P TH  ) ; 

CALL  SETADLPPTR (4 ) j 
EYTEPTR  =  iTNC$ENTEY  OR  80HJ 

end; 

end; 

105  *  PROCEDURE  <PR0C  IDE, NT  LIST' 

106  <PP.0C  I  LENT  LIST>  ::=  <  IDEN  TI  FIER> 


*/ 


1  "•/ 
a  / 


a/ 


104 


•  -  -  .  .  .  .  C  f 

? 4  ?  AMN  tjv  =  -r  i; 

7A?<rA5  3(i)=S?T?t; 

C*tL  IN  TiPSSUrP.T.'!  '(?  ,SR  ,?®CC$7N  TRY  '  ; 

fnd; 

/*  lz?  "  <,?®oc  idemt  : :st'  .  <':ry,j7'?:i?s 

l v  PTR  <>  1C 

?c; 

VAR  JpTPsstfAHSFTP  +  i  ! 

?ARAVNUV'  =  ?A®AVNUM  +  1* 

VA?$3\SE(VAR$PTR)=S3T’1L; 

CALL  EN TE®  SSURRTN ( 3 ,S ? ,?®0C  £  FN  TRY  '  J 

e  \T  r  * 

®LS 7  CALL  ERROR (  'VN  '  )  ; 

/*  13E  <  ?  A  ®  A  CROUP)*  ::  =  <?A?.A  I  LINT  LIST  -  :  <TY?E  !DIN"'N 

/*  109  < P A R A  II: ?■! 7  LIST>  ::  =  <IIENTI7I2R> 

ro; 

VAR*®T?=C : 

PARAMNUK  =  PAPAYNUM  +  i; 

VA?5EASS^)  =  S3T?L» 

CALL  EM TERiV  ARS I D ( 2  , $P  ,YAR< ENTRY  )  ; 

END? 

/#  113  ~  < ? A R A  IDrN"  LIST>  ,  <II-TN T  I  71  Er '• 

17  r  A  R  $  ?  T ?.  <>  1C  THIN 

rc ; 

Y  A  ?.  £  P  T®  =V  A  R  $  ?  TF  + 1  > 

PAPAYNUY  =  ?A®*MN’JM  f  1» 

VA?$3AS?(VAP.$PTR)=S3T3L; 

CALL  EM TF®  SVAP$ID(2,S?tVA REENTRY)  ,* 

E  *1 E  * 

ELSE  CALL  ®R?0.R('VN'); 

/*  111  FUNCTION  KZADINO  :  :=<TUXCT  IE",  :< RESULT  TY*L'>  : 

Do; 


/ 


/ 


/ 


/* 

/* 

/■'•' 


/* 


CALL  COT  $  PA  RAMS : 

CALL  507iFUNC$TTPF; 

end; 

112 

~  <7 u.N  c t  :r>  ( 

112 

<70RMA L  P A ® A  SECT  LIST; 

112 

^RESULT  TY?a>  ; 

do; 

CALL  GOT$PARAMS J 

CALL  got$fcnc$type; 

CALL  »LT7RSPP.1<L0C; 

END  > 

113  CFUNCT  IL >  ::=  FUNCTION  <"IIENi  !7I7?> 

do; 


/ 

*/ 

*/ 


'-  r  / 


?A®AMNUM  =  2] 

CALL  ZMT  E3$SUP RTN ( C , S  F , PUN  CAEN  TRY); 
END ; 


/#  114  <R ES UL T  TY?E>  ::=  <TY?E  IDINT>  */ 

CALL  ALLC$OFES2T(TYPELCCT) ; 

/*  115  <STVTP>  ::=  <C0MPCUND  3TYT>  -/ 
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/■■■ 

» 

116 

<S7NT''  = 

< 

?  A I  3CVT> 

5*5' 

/  *’* 

117 

<r 

UN  PAL  3T’V?S 

/ 

/-•■• 

> 

11? 

<- 

L  5  BEL  LZ?>  <57NT 

y 

/ 

/* 

* 

11- 

< 

’  A  L  3 TMT >  : 

.  - 

<I’  CL»lTS”X7?U7 

p 

ic-pN  els’Pb»l 

CALL  CEN^ALIR 

h 

B L ,  (  LABELS  7 A  0  ^ ( N 

p  > 

-1); ; 

/* 

120 

<S I NPLE  S  7V7> 

/* 

; 

121 

^TJNBAL  ST!* 

T  > 

:  <IE  CL»ITSI> 

< 

?7M> 

C* 

LL 

GEN  3  ADD?.(  I 

3L 

, LA 3 ELS ? A CX( y?  }  ) 

1 

/# 

12’ 

<  I F  CLAUSE'* 

< 

"’PTE  r APT''  ELSE 

■v 

/* 

122 

<UN3AL  SUN: 

> 

=:•  / 

C‘ 

T.T 

5?fiiADDF(L 

"3  T 

,( LABELS TAC7 (NP ? 

■*•1 

/# 

123 

<I’  CLAUSES 

:  IE  <EX??I'SSI 

ON 

">  7-EN 

10 

> 

labelstac:<(n?^=laplcount; 

LA  ?LC0TJNT=LABI  COUNT +£; 

IE  EXPPSSS$STK(NP’l)  =  BOOLEAN  A  TY’Z  XE’N 
DC  J 

CALL  GENERATE  (  NOTX  )  > 

C«LL  GENiALrt}(rLC,L8FELSTACK(^P'): 

; 

ELS  i  CALL  ERROR ('CZ')J 

end: 

/*  124  <TBT?E  PART0>  ::=  <3*L  S?VT>  -V 

ro ; 

CALL  C-EN $  AEIR ( BRL ,  (  LA2EL5TAC  E( SP-i ) +1  ) ) J 
CALL  C~N5ALDB(L3L,LA3FLSTACL(S?-1  '  )  ; 

end; 

125  <TAPZL  LEx  >  ::=  <L'5EL>  :  */ 

IT  LCOir?$PMSlD(>P,LA3L$?!4?ar)  TEEM 
do; 

CALL  5  ETA  EIRPTR ( 5 ) ; 

CALL  SETADLRPTP (6+BYTEPTR  )  5 
CALL  GEN^AIDR (L?L ,AID??TP  )  ? 


ELSE  CALL  ERRCR('UL' 

/*  126  <S  INPLE  S7NT>  : 

• 

); 

<ASS  IGNNENT  STNT> 

/*  12’ 

• 

^PROCEDURE  S',VT'> 

*/ 

/*  129 

• 

<aH ILE  STNT> 

/*  129 

^3TpV^Pt'  JTWTS 

/*  120 

• 

Op  OR  ST  N’T  > 

*/ 

/*  121 

• 

<C  ASE  STNT> 

t 

/*  132 

- 

<WITE  STNTN 

*/ 

1  =  6 


/■■■ 

/•-' 

/* 

/■■ 

/* 

/* 

/■■'■■ 


134 


<ccv?ct;e  stvt> 


130  <TA  5  5  I  N .v E \ T  STV?>  ::=  <7A~IA-LT.> 

CALL  »  SS  I  3‘l  <  A  H I  (  Y?  ,FAl  ?  E )  ! 

137  <YA?IABLS>  ::=  <VARIA?L:  I T 


•••/ 

J-7 


138 

139 

do; 


<  V  A  8  I  A.  E  L  E  '> 

<VA-IA^LF>  [  <EX??.:3  H3T 


/# 


ty?i sstacx  (iv.f )  =  (typt$s”a:;:  y? )  c?  438); 
TE^-EASE, BASE  =  EASES  L  <  v?  '  ; 

CALL  STTSP»3T$?'J(9)  ; 

EASE=A  DD°?i?.  J 
CALL  SETATIRPT?  ( 5 '■  ? 

I?  8YTEPT?  O  PXPiCTE  THEN 
CALL  ERROR  ('XC')J 
CALL  SETA  I IRPTR ( 15 ' ; 

^xpsctri^xpsctr: 

DO  'a  RILE  EXriCTRl  >3; 

CALL  GINSAlIPdEII  ,  A  D I R  ?  T  ?. )  ; 

A'“'TDADDP  =  APT?  ADDr.  *  *  : 

TX?^CT? 1  =  EXPiCTRl  -  l; 

END  : 

CALL  S  ETADDRPTP. (11)5 
CALL  GEN<ADDR(LDII  ,  ADLRFTR  )  ? 

3AS  E  =  ?7vPBA?E5 
CALL  S'T$?AST$rN (7 ) ; 

CALL  GZNADDR(LITA  ,  4  DI-RPTR  )  ; 

CALL  GENERA IZ  f  SUB ) J 
CALL  GENERATE  (EXPECT?. )  t 
CALL  SETALERPT? (S  )  J 
PAS7  =  AEERPTS; 
end; 

140  ~  <VA?IAPLE> 

IE  NOT  L00KUF$CMir^SP)  THEN  CAL 
ELSE  DC; 

EASE  =  LOOKUP- ADD? ; 

CALL  SS?$PAST$?N(12); 

PFTSADDR(MP)  =  ADDRPT?  +  ?  P  T  S  A  D  D  8  { v  ?  )  5 
CALL  SST$PAST$F\'(9)  5 
CALL  CASEPTnPTR ( BYTEPTR ) ; 
n,TP7$STA?K(K?)  ,  TYPE$STAC'0  (S?  )  =  PTRPTP. ; 

end; 

141  CVARIABLE  II ENT>  ::=  ClrENTIFIZR > 

do; 

V  A  ?  ?  A  ?  Y  =  false; 

IF  NOT  L00XU?$CNLY(S?)  THEN 
CALL  ERRCR(  'DT' ); 

else  call  setsyarsttpe;/*  looiupSaedp  SET  -E?t  •*/ 


<EI-LD  IDEsT 
EP-ORv'  'FT'): 


■■■■/ 


187 


/*  14?  <-"?=ES  LI">  ::=  CEX? R E5 S ! CN > 

ix?$ctp=: ; 

/*  n?  ~  <•?:(»= ?s  i : s:n  . 

-HPSCTR  =  E  X  ?  $  C  T  c  -  i; 

/*  144  <7X?H7SSI0\>  <SIV?L7  7XP-E53D 


7V*5“  T  n  v 


/-  145  ~  <S  Itv.?L7  EXPRESS  I<C.N> 

/*  145  <  F  F  L  A  ?  1 0  V  A  L  CrEFAlC-X 

/*  145  <3  IMPLE  EXPRESS ION> 

1 7  C5XiEX??.$TY?E  THEN  CALL  7I'iL$77LC?; 

ELSE  CALL  7RF0P (  'CZ'  )  J 
/■■■  146  CRELATIOMAI  C?EPAT0E>  ::=  = 

C*LL  SE'rS0?$7Y?~(  385)  J 
/*  14°  <  X 

CALL  S37$0?$TYFE(eSH); 

/*  148  <  = 

CALL  SZT$0?$TYPZ(  3A7)  J 
/*  14°  >  = 

CALL  S?T$CP$TYFf (03H) J 
/*  150  "  < 

CALL  SZT$0Pi?Y?E(2CF) ; 

/*  151  > 

CALL  5FT^O?ilYP7( 0LP) J 
/*  152  ~  IS 

C 1 LL  SET$C?$TY?E(CE5)  ! 

/*  153  <TZRM>  ::=  <FACTO?.> 


/#  154  ~  <T7RV>  ?VUL7  I  PLY  INC  OPERA  TCP.  ^  <7  A  C  TO  P.  V-  / 

do; 

U  HEAD?* RMS  THEN 

DC : 

AFTRADER  =  PARMNDMLCC(MP); 

17  SHR  C  PYTiPTR , ? )  THEN 
CALL  7 P R 0 F. (  'MY' )  ,* 

end; 

17  C5K$2X?R$TYPE  TEEN 
DO: 

TO  CASE  TY  PE  $  S  T  A  C  S ( XP  P 1  )  » 

/*?*/  IE  EXPRESS  $  SIX  ( S  P  )  -  15  THEN  CALL  GENERATE  ( KJLT ' : 
rLS  ~  IF  EX?FESS$STX(SP  )  =  35  THEN  CALL  GT*iEF  *TE  (M’LR  )  5 
ELSE  IE  EXPRESS  $ST^ (S  P )  =  37  THEN  CALL  07  NFPA  T7  ( I S  EC  )  ? 
ELSE  CALL  ERROR (  'CE')5 
/*1*/  I*  EXPRESS  $STK( SP )  =  IE  TETN 

co; 

CALL  C-ENERATE(CNVI)  ;/-  CONVERT  1ST  INTEGER  / 
CALL  GENERATE (CM2 1 ) : /*  CONVERT  2ND  INTEGER  #./ 
CALL  GENERA TE(DIV? ) > 

EX?RESS$STK ( M? )  =  UNS  IGN SEXPCN J 
end; 

ELS?  IF  EXPRESS$STK (S? )  =  3H  TUEN  CALL  GENE? A TE ( 1 1 73  ) ; 
ELSE  CALL  ERPCRv  'CE  ')  J 
/*2*/  IE  EXFPESSSST'£(S?)  =  i:iTTGERSTT?Z  THEN 

CALL  GENERATE  (TlVn  J 
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--  ?T 

1,  L  l-*’  ^  l  .  (  * 

EXPRESS  ;ST*:>S?)=ri?z:-rE 

t-r? 

CALL  Or 

\  7 ^  A 

ELSE 

CALL  ZPRCRi'CE'}: 

I7 

E X*"-  E S  S  S  S  TE  (  S  ?  )  =3 C C L E  A  N 

c  ^  V  TC 

CALL  "•  E 

,‘m  t  7  A 

ELSE  CALL  ZRRrR('Ci'): 

f*;d:  /*  c7  cast  vafstypisstx  */ 
end  ; 

ELSE  CALL  ERROR ( 'CZ'>; 

end; 

/V  155  MULTIPLYING  0?ERATC?>  ::=  * 

CALL  SZT$C?$TY?E(22?) 5 
/*  155  / 

CALL  5 1?$0?  ^  TY  PE ( 21? )  J 


/* 

157 

CALL 

SET^C? -  TYPE ( 22? ) ; 

L IV 

/# 

156 

CALL 

S  ZT^OF  *  Tf PE ( 22? ) J 

*"*  K'r\T* 

/* 

153 

CALL 

SETi OP  s'TYPE  (  24? )  ; 

an: 

/* 

152 

^SIMPLE  EXPRESSION  > 

:  :=  <TSRM> 

-/ 

*/ 

*/ 

*/ 

-/ 


/*  161  "  < 3 1 G rl >  <T7?YN 

do; 

I?  RZAI?A°N:S  T?EN  rc; 

APlRADTR  =  ?A?.«MUf'LCC(S?  )  5 
IF  SER  (  E YTIPTR  ,7 )  T?ZN 
CALL  ERROR ( '*?')» 

ZNE  ; 

IF  SICNTYPE  =  NEC  TEEN 

do; 

IF  EXPRESS  iSTE  (  5?  )  =  lTN3  I GN  sEXPCN  7z~'l 
CALL  GENERATE  OlEGE  ) ; 

ELSE  IF  ZXP?ZSS$STX(S?  )  =  IN  TFGE?.$TY?E  “HEN 
CALL  GENERA  TE (  NEG I  ) J 
ELSE  CALL  ERROR  ( 'UO ')  i* 
end; 

S I ON  £ FLAG  =  FALSE; 

CALL  COPY$STACXS ( ,SP  )  5 

end; 

/»  162  ~  <S  I N.PLF  EXPRESS  I  CN>  */ 

/*  162  <AILINC  OPERATOR;  <'TZRK>  */ 

r  o  J 

IF  READPARrS  m«EN  DO; 

APTRA  DIR  =  PARMKUYLOC(K?); 

IF  SER(3TTEPTR,7)  TEEN 
CALL  ERRO?(  'NE') ! 

END  ; 

I?  C?X$EX?R$TYPF  THEN 
Co; 

I?  TYPS$STACX("PF1 )=5F  TEEN/-  ARITH  ATE  */ 

DO  CASE  EXF°ESS $STF (5 P  )  ? 

CALL  GENERATS(UNION ) ;  /*  CASE  a  -  ORD  TYPE  */ 
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r all  gem i? Mi •' a: r i ' :  /*  c a 5 "  :  -  integer 

CALL  ERROR (  'ZZ'  )  W*  0  A  5  T  2  -  CLAP  *  •' 

CALL  GENERATE  '  aL  E"  )  »  /-  CAS  I  -  REAL  */ 
CALL  ERROR.  ( 'CE '}; /*  CAS"  4  -  STr.IVC  *  • 

CALL  EPEOF  (  'Ct  '  }W*  CAST  r  -  3CCLFA  i  *, 

bn:;/*  cast  */ 

ELSE  IT  TYPEiSTACi ^*??i }~  5?  THEN  •’«  A  PILE  S'. 
DC  CASH  EXP3ES  5  ?5T'<  (  3  ?  )  > 


CALL  GENERATE  v  S  7  0  I E  ,  > 


.  ?  C  * f 
*■/ 


CALL  GENERATE (SUB  I ; ; 

CALL  :r?CE('CZ'); 

CALL  GENERATE (SUB? I ? 

CALL  ERROR (  'CE  ' '  > 

CALL  ERROR ( 'Cl' ); 
i  M  j 

ELSE  IE  TYPES  3  TACK  ( V°?i  )-">?.  THEN/-  BOOLEAN  OR  *  / 

r'n  • 

X/U  » 

IF  EXPRESS  $5?X ( S F )  =  RC^LEAN S"Y?E  THEN 
CALL  GENERATE ' BCR ) 5 
ELSE  CALL  ERROR (  ' C T  ' )  5 

ene; 

eni  ; 

ELSE  CALL  ERROR (  'CE' ) J 
ENE  ; 

/*  ITS  OAEEING  C?EPATO?>  =  *  *, 

CALL  S  ETi OP  $  TYPE ( Z5E ) * 

/*  164  ~  -  *, 

CALL  SETS0?$TY?3(Z6F); 

/-  1C?  ~  C"  *, 

CALL  S  FTiOPi TYPE ( 2?” } ; 

/-  166  <  FA  CTOR>  ::=  <VARIABLF'> 

IE  ( ''’C  P.v  $  ?I  ELE  (  v  P  )  -  26")  C?  (  FOR.v$  EIELE( .'?  )  =  ?  E  H  "Hi: 

CALL  CALLiASPPOC ( FALSE ) J 
ELSE 


C  A 

,L  LOAFS 

V  A  R I  (  S  P  ) ; 

/# 

ier7 

<V  AR I A  BLE>  (  <A  CTUAL  ?A»A  LI3TN  ", 

CALL 

CALLiA* 

PRGC ( TRUE  )  i 

/- 

168 

(  < EX  PR ESS  I C  M  >  ) 

CALL 

COPY iST 

acks(kp,  r?Pi); 

/* 

16? 

<SET  > 

*/ 

/* 

172 

NOT  <FACTOP.> 

-  / 

lo  ; 

IF  EXPRSSS$ST3(SP)  =  BOOLEAN  STYPS  THEN 
CALL  GFNERATE(NCTX) ; 

ELSE  CALL  ERROR (  'CE'): 

CALL  CO?Y$STACKS(Y?fSF): 
end; 

171  "  ENURRER > 

IT  Tvp  1*11'^= I  ?J TEG EP  STEP E  THrN 

co ; 

EXPRESS  ASTK ( SR )  =1 NTEGSRSTYPE : 

ALLS iCTY=C  CN  VERT  I ( S  ?  ,  PCS  ) ; 

CALL  C-EN’iA  CE?  (  LTI I  .ALLCiCTY)  ; 


7 


AO-AOSS  0«2 


UNCLASSIFIED 


NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA  F/«  9/| 

NPS-PASCAL.  A  MICROCOMPUTER -OASCO  IMPLEMENTATION  OP  THE  PASCAL  — ETC(U) 
MAR  00  KS  TINIUS 


/* 


7'iT  • 

?l$f  ec; 

EX?B  ES 5  55 TE ( 5? '  =l'\S  IGN$EX?CN 

CALL  CCMV?TBC:'S?.rOS  '  : 

C 1  LL  ''-T.'JL?  ATI  (  ELI  3  )  » 

DO  P7S?T?.  =  a  DO  BCDSIZF-i; 

CALL  GENERATE  r Cl  NIC'1  ( PTRRTR ) 
pnc  ; 
end; 


172 


NIL 


/*  173  ~  <STRI N  S> 

Do: 

TXBEESS$SiK(St)  =  5  Till  fj  G$  TYP  ~ ; 
CALL  GENERATE (LCSI  )  J 
EO  EriB EVE?. ; 

rc  ? T ? ? T F.  =  1  TO  ACCUM(a): 

CALL  C-  FNEBA7E  ( ACC  UP  ( PTRRTR  )  ) ; 

T? »  .  r  • 
r.  .  i.  i 


: :  / 


!B  CCNT  THE’*/-  STRING  >  32  CHARS  */ 
CALL  SCANNER? 

else  re; 

CALL  G  E  N I P  A  7  E  ( N  C  p  ) J 

bet;jrn; 


/•••• 

174 

FA 

CTUA.L 

A  L I S  T  >  = 

FA  C 

TUAL 

PARA') 

/ 

?»S 

VN 

r*y  ( s  ? 

r= 

i ; 

/- 

1*5 

<AC 

DUAL 

?a?a  l i s  t  ■ 

/ 

/* 

l'7? 

FAC 

?  U 1 L 

RA  RA.,> 

■:=/ 

?»? 

YN 

Tjv  (  v  p 

N  _ 

/  “ 

PAPYNUKt K?  ) 

4-  1 

9 

/* 

176 

<S 

: 

r 

:  =  L 

<ELENENT  LI5T> 

] 

CALL 

CO 

~  V  <C  T 

A  C  X  S 

'MP,  fNPPl); 

/-  177  <FLFN!ENT  LIST>  ::=  */ 

CALL  COPY  ^STACKS ( S  ?,  S?-3)J 

/*  17C  ~  <XELEVEN  T  LISI">  */ 


/*  179  <XELFYE.NT  LIST>  ::=  <ELEi*  F.N  TO  */ 

» 

/*  180  "  <XELEVENT  LIST;  ,  <ELZVENT>  */ 

I  7  EX ?P. ESS^STS  (3P  )  <>  EXPRESS  $STr (S?  )  ^HE N 
CALL  EPROP  (  'ET'U 

/*  181  <FLFMENT>  ::=  <EXF?.rSS  ION>  #/ 

; 

/*  182  “  <EXPBESS I0\’>  ..  LFXPRFS  S I  CN>  -/ 

IF  EXPRESS  SSTK(MP)  O  EXPRESS  ?  STK  (??  )  ?r  EN  CALL  FRROP  (  'FT  '  . ; 
/*  183  <GOTO  5 T r T >  ::=  GOTO  <LA°7L>  »/ 

I?  LOCKUP $PN  $  1 1 ( S?  ,LAEL$ZN  TR Y )  THEN 

do; 

CALL  STTACrR?TP(5); 

CALL  SFTACrp.PT?  ( 6+E  YTE°TR  ;  J 
CALL  GEN$AEDR(BRL,ADDPPTR  )  ; 

end; 
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ca: 

CM 

ene ; 

/*  1=4  MCMCU.NI  S 


erp.crv  Li  ; ; 
S*‘iT5*TE(N0P); 


'is 


C ALL  Tr.NE?  »TI'v  .<0?  )  ! 

:  =  PFC-I'  <S  TN  :  LISTS  >  ?NZ 


/*  1  =  5 

• 

<STY. T  LI3TS>  ::=  CSTYTN 

« 

/*  1=6 

• 

<STMT  L  ISTS>  :  <STN  T  "> 

*/ 

1 

/*  1  £  n 

<'?°OCEDUHE  STfM>  <?P0CFEU?E  IE  ENTS 

CALL 

CALL$» SPROC(EALSE): 

/#  16S 

FPRCCEEUPE  IEENT>  ' 

/*  IPS 

FACTUAL  PARA  LISTS  ) 

■■f/ 

1=  EO?.^$t’IELE(  KP  )  =  BUI  LT5  IN<PPCC  TEEN 

CALL  CALL$A$?1>0C(PALSE); 
ELSE  CALL  CALL$AS??.0C(TRUE)  : 


/*  IPS  <PKCCIDUP.I  I D E ‘i T >  ::=  < IT  FN  T I  F I ZR>  */ 

eg; 

IF  NOT  LOOKUPSCNLY^SP)  THEN 
C 1 LL  ERRCR('UP'); 

ELSE  eg; 

FASELOC(SP)  =  LCCKUMAEDP  : 

CALL  SETADLPRTR ( 4 )  J 

toh^SFIELL(SP  )  =  BYTEPTP 5 

IF  FCP^Si  IELE  )  =  3U ILTS  IN  $?»0C  THMI 

rc; 

CALL  SET$PAST$PN(?)  » 

I?  BYTEPTP  =  2=  THEN 

do; 

PAprNUKS?)  =  2? 

PA?MSLMLCC(«P)  =  APTRME?  *  i; 
end: 

ELSE  IF  BYTEPTP  /  21  T -IN 
TO  CASE  MYTSPTP.  -  22): 

ne^st^t  =  true; 

EIS  POS  r iSTUT  ^  TRUE? 

PEALSST^T  =  THUS: 

PEAD$STI*T  =  TRUE? 
wp  I  Ti$STI*T  =  TRUE; 

1»PITESSTVT  =  TRUE: 

END?  /*  O7  CASE  (BYTEPTP  -  22)  */ 

end; 

ELS  8  E r;/*  MOT  BUILT  I N  */ 

CALL  SIT$PAST$PH(7)J 
PA?MN W (5P)  *  byteptr; 

CALL  SET5?AST*PN(p); 

P  AP^.N  UIMCC  (  S  P )  =  AEDRPT*>i 
APTPADLR  =  APTPALER  +  e? 

LAP  ELSTACE ( S  ? )  =  AIDH^TR! 

PFADPAFKS  =  TPUEJ 

PA pMN UPLOC ( S  ?*2  )  =  PAPf'NU^LOC'S?)  i 

end: 

end; 


1S2 


/■■-  If?  <ACTU»L  P  A  r  A  s  <EX?RES3 I7\ > 

IP  ?.FAI$??MT  T-IJ'i  CALL  P  PAIS  "A?: 

TT^qr  T7  TJ  T  7  ;  R  rp  'T’-Tj  C1LT  V.  P  I  T  7  ''  V  1  -  i ?  '  • 

ELS  I  I"  N  ^  a  (  RE  A  D  PAP  U  5  )  T  7  7  v 
PC : 

FZADPARf'S  =  TRUE; 

CALL  GENERATE  {  PARNa  •  » 

/*?  A. RAVETER.  IS  AN  EXPRESSION  VALUE  *  / 

end  ; 

/■■■  131  ~  <FX?RI5SICN>  :  ''EX  ??T3  SI  C  Vs 

IE  f,7?  v.  R  IT  ZiSTvT  TH- N  CALL  E7707('PE'); 


IE  EXPRESS  i3  TK  (Sr/  <>  I  MERGER  AT v?  E  T’-’E.N  CALI  E?R'r('7r 
CALL  *SI73SVAR(1); 
end; 

/v  IS?  "  <EXPF  F3  SI  C'l  >  :  <EX -PIS  S  I  C NN  : 

/*  IP?  ^EXPRESS  I 0N> 

I7  NOT  'tip  ITFSSTYT  TRrN  CALL  ~F  FOP.  (  '  ?  I ' )  t 
ELSE  dp; 

IE  EXt>?.?rS$STK(«?)  O  UN  S  ION  A  EXPO  N  T  =  EN  CALL  E7?07  (  '?? 
IE  ( EXPR7S  3SSTE ( S? )  <>  I N  T7  OER  STY  FT  )  AND 
( EXPRESS  iSTK(  5F-2  )  <>  I  NTEOERiTYPE  )  TEEN  CALL  ERROR.  (  'V? 
CALL  V?.  ITEiVApf  2) ; 
end; 

f*  1  S3  <  C  A  S E  5TMT>  ::=<CASE  FXPR  ESSXCA5E  LIS'"  ELEV?  LIST' 
/*  1ST  END 

r  c  j 

LAPLCOUNT  =  LAPLCOUNT  *  1J 

CALL  G  EN SATIn/T  RL  ,  LAEILSTAC  7 (M?  ' ) ; 

CA3ESCCUNT  =  CAS  ESC  GUN T  -  It 

end; 

/*  104  ^ C A S  E  EXPRESS >  ::=  CASE  ^EXPRESS IO,\>  OR 

ro; 

case$stn'?=t?ue; 

IF  ( EXP  RES  S  i  SX’<  (  N1??  1  )  =  UNSIGNS  EXPCN  )  THEN 

CALL  ZP?rPi 'rt'); 

LA  RFL5TA  CX ( h? /  =  LABLCOUNT? 

LAPLCOUNT  =  LA  PI  COUNT  +  1? 

C  A  S  E  $  S  TX ( C  A  S  E  SC  CUN  T  :=  CAST$COUNT  -  1)  =  ?; 

end; 

/*  1P5  ''CASE  LIST  ELSN’T  LIST>  <CASE  LIST  ELFUE  NT  ^ 

I7  CASESSTMT  THEN 
DO? 

~  CALL  GENS  AIL?.  (ERL  f  LA  EELS  TACX  (MP-1  '  )» 

CALL  G^N  $  ADDE  (  L  3L  ,  (  LABELS  T  AC E  ( iv?  )  +1  P  > 

end; 

/*  196  ~  PC  1  SE  LIST  ELr  NT  LIST >  ] 

/*  1 96  <CASS  LIST  EI?NZNT> 

IE  CASES5TMT  THEN 

10 ; 

CALL  GEN  $  A  DIF.  (  3RL  .LABELS  TACK  ( NP-1  ;  ) ; 

CALL  C-EN$ADDR  (LRL ,( LA  PELS  TACK  (S? )  »1  )  )  5 

eni; 
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CASE  PREFIX'*  < S ^ 7  > 


/■■■  19°  2CASE  LIST  ELEV‘E\T  '  :  :  = 

CASESST'-T'  =  false: 

/*  i?e 

« 

/*  1 99  <C»SZ  PRZZI T  0  ::=  'CASE  LA  r  EL  1 1  57  >  : 

do; 

CALL  CT.N$AI  DR  ( PPL  ,  (  LABZL3TACF  ( UP )  +1 }  '  J 
CALL  C-p.N$  ADDE(L3L  ,  Hi? L3TACE  (K?) ) : 

end; 


/ 


/* 

2/0 

<  V  ITS  S 

CVTS>  ::=  <*ITH> 

<p iC  \ 

/A.pIAELE  L I S T >  <£0> 

*/ 

/* 

200 

O'  L  ST 

V", 

:;7 

/* 

201 

2X1 TH> 

: : =  VI TH 

*/ 

/* 

222 

4 

<?EC  VA 

? I A P L E  LIST>  ::  = 

<  F  A.  ?  J 

l» PLE> 

<7 

/* 

203 

<»x 

OR  EC 

V.aRIAFIE  LIST/  , 

=:7 

/* 

223 

• 

<vap: 

:ahle> 

V/ 

/* 

« 

204 

<IA>  :: 

=  IC 

/* 


/* 


ro; 

LA 2SLS TAC 17  ( SF  '  =  LAPLCOUNT  ? 

C»LL  GEM S  A  DDF ( BLC .LABELS  TACK (SP  )  ); 

LAP! COUNT  =  LAPLCOUNT  +  1? 

205~  CHILE  STM>  ::  =<V. El  LaXSXP? ES S  ! CliXTO^  A L 

CO ; 

CALL  C  EN  $  A  LIP.  f  RPL ,  LAiZLSTACK^P '  )  : 

C»LL  GEN  S>  A LDR(  L3L  .LABELS TACK  ( S  ?-l  )); 

end; 

20^  OX HI  LI >  ::=  VEILS 

DC: 


c  "  v  7  ■> 


■■'■■/ 


LAHELSTACK (SP)  =  LA  3LC0UNT  ; 

CALL  GEN$A IIR LT  EL ,1 AESL5 TACK (S?  ) )  : 

LAPLCOUNT  =  LAPLCOUNT  *  i; 

end; 

/*  22-t  <r?0R  STKT>  ::=  EnP<C0NTP0L  V»?I  SELF >  :=o70?  LIST  -  #/ 

/*  207  <DG>  <3AL  STKTO  ■•■/ 

do; 


CALL  GEN  $ AIER  f  ERL , L  LAEELSTACE ( S?-? ) +1 ) )  ; 

c  a  ll  gen  $ add? ( lbl .labels tack (s?-i ' ) ; 
end; 

/At  2?P  2E0R.  L I  ST>  ::=  <  I M  T I A  L  7*LUF>  <TO>  ''FINAL  VALUTA/ 

do: 

IE  EXPRESS  iSTE  (P? )  <>  EXPRESS  ^ST5' '  SP  )  TEEN 

CALL  E?.RC?(  'IT '); 

CALL  GFNERATE(GECI ) J 

end; 

/*  209  "  CINITIAL  VALUED  <IOV-NTO>  <  F I N  *  L  V  A  IUr '*  */ 

uc; 

I?  EXPRESSES  IK (UP)  <>  EXPRESS  4ST7  '  SP  )  THEN 

CALL  ERROR (  'ET'); 

CALL  G^NP'RATKLECI ) ; 

ENL ; 


194 


_  <  • 

VAR?* .?*■  =  false; 

IF  NOT  LOOKL’PSONLT(SP)  Tr’EV 
CALL  3R?.CR( 'CO? 
rLS f  do; 

APTRADDE  =  LOOKUPSAIDP  -  4J 

IF  FYTEPTA  -  IFF  THEN  CALL  ERRC®  (  'C  V  ' )  ; 

ELSE  CALL  SE?$7ARSTY?E J 

end; 

end: 

/#  211  < 1 .4 1 T I  A L  VALl'rN>  =  <IX?R7SSICN> 

ro; 

C  4  LL  ASSIC-N$VAPI  (SP-2  ,  TRUE': 

LABELS  TACK (Sr)  =  LARLCCUNTJ 

LA  RECOUNT  =  LA RECOUNT  +  2J 

CALL  C  EN  S  All  ?.( ERL  ,  LABELS TAC  X  'S  ?'  )  : 

r  ALL  OEM  $ ADD? ( LBL ,( LAPELS? AC  r ( S? ) +1 )  5  ? 

CALL  LOAD$VARI (SP-2) » 

enl: 

/*  212  <FINAL  VALUED  ::=  <EX?RZSSICN> 

/#  213  ^RFPEAT  STM>  =  <REPEA?'>  <S?M7  LI?TS> 

/*  213  <EX?RESS ION > 

D  o ; 

IF  EXPRESS SSTKfS?)  =  BOO LEA  Vi TYPE  THEN 

dc: 

CALL  GENEP.ATE(NOTX); 

CALL  C-EN  SABIR  (  PLC  ,  LABELS  TACK  (MP  '  )  ! 
rND ; 

ELSE  CALL  ZRPOP('CS'); 

end; 

/*  214  <REBEA?>  ::=  REPEAT 
do; 

CALL  CENSAIERaPL.LAtLCOUNT)  ; 

LAPELS?  ACX  (  Si" )  =  LA  PLC  CUNT  ; 

LA  EL COUNT  =  LA PL COUNT  +  1? 

ene  ; 

/*  21?  XTO''  ::=  TC 

do; 

CALL  GENERATE 'INC); 

C  *  LL  CEN$ALDF(LBL,LA3ELSTACK(SP-1  )  )  J 

end; 

/*  216  <IOVNTC>  POluNTO 

do; 

CALL  GENEP ATE { DEC  )  J 

CALL  C-1rN$AIIR(TELfLAiELSTACK(5?-l  '  ); 

-  nd; 

end;  /*  OE  CASE  STATEMENT  */ 

END  synthesize; 


END  SYNTH2J 


decode  .s -c 


LECOLEtrr: 

DrCL APE 

LIT 

LITERALLY 

'literally ' . 

ECR 

ADDRESS 

INITIALISE)  . 

?CB$Rv™v 

RASED 

7C3  II)  BYTE, 

I 

■cy  FF , 

F<?H 

RYTE 

INITIAL! 0FCH ) 

DTC I  ( ? ) 

BYTE 

I N  IT  I AL { 64? , P 

T=Ut' 

LIT 

'1'. 

FALSE 

LIT 

'e'. 

ADD? 

4  DDPESS 

INITI*L( 10^E ) 

CHAR 

RASED 

A  D  DP  BYTE, 

lcl 

LIT 

'DECLARE 

TXT 

LIT 

'extern AL' , 

P^OC 

LIT 

'PPOCSrUPE '. 

BUFF SEN I 

LIT 

'0FFH ' , 

BCDNUM(8) 

byte; 

MOM :  PPOC  I FUNC, INFO)  EXT  » 

LCL  FUNC 

BYTE. 

INTO 

ADDRESS 

END  MONl» 

MON?:  PROCf?UMC,IM?0)  RY^E 

ext; 

DCL  TUMC 

3  YTE . 

I  \F° 

ADDRESS J 

END  MCN2! 

BCOT :  PPCC 

ext; 

ENT  boot; 


PRINTSCEAR :  PROCEDURE  (CEAR): 
D'rCLA?ir  CEAR  BYTE ’ 

CALL  MON1 (2, CHAR) J 
EMC  PRIN?$CEAR? 


CPLE:  PROC; 

CALL  PR INT^CHAE ( 13  ) » 
CALL  pRIN7$CEAR( 10) ; 
END  CELT? 


19€ 


? :  ppncmPEUm) ; 

declare  Am  Air°iss,  c  easel  aiii 


C  *  LL  C?L1'; 

DO  1=0  TO  45 

CALI  ®RINT$CHAR(C'I  )  )  ; 

END  : 

CALL  Pp  I  NTtCEAF.  (  '  '  }  5 
EMI  ?; 


'1  ^ 


5ET$CHAR:  PROCEDURE  3YTEJ 

IP  (‘CL^:=AriH+l)  >  3UTF$2NE  TrEN 

ro; 

I?  iv:0M?(2f',7CB)  <>  0  TEEN 

ro; 

call  ?( .  (  'em 1  ') ) ; 

end; 

ADDR-S3EJ 

END  ; 

? rTUP N  cpap; 

END  OETSCHAR; 


WRITES STR  lNr- :  PRCCEIUREt 
D”CL‘P~  J  3YTEJ 
in  VEIL?  I? 

J  =  'm$c?AR; 

I?  J  O  TETN  CALL  PR  I.NTSCHA  R(  .T  )  i 
ELSE  return; 
fm  r ; 

END  wpitesstri.no; 


E$CEAR:  PROCEDURE ( CUTPUTSEYTE  )  ; 

DECLARE  0UTPUTS3YT?  BYTE; 

IF  OUT PUTSPYTE  <  10  THEN'  CALI  PRINTSC3A5-">UT?UT5*YTF  -1- 

3  (/c  '  ; 

ELSE  C *  LL  PF I NT$C?AR( OUTPUT $3YTE  +  U7E); 

END  DSCFAP; 


D:  PROCEDURE  (COUNT); 

DECLARE  (COUNT,  J)  ADDRESS; 

DO  J-l  TO  count; 

CALL  d$cfap(ser(getscfar.4) ) ; 

CALL  DSCRAR ( CHAR  AN  D  0?H  )  ? 
CALL  CR IN  T  SCEAR (  ' 

end; 

END  d; 
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p"  I  \'T?rCr  :  P^oCEIjF.F  (Co*jN  7<i 
Zrl  <ZC  UNT.J.L.H)  EYES  J 


P  AEXPCN  :  PROCEDURE  ( YA.LU7  '  ? 
PCI  ( VALUE , X ,  C0UNT1  '  rYTE  i 
PCI  FLAG  FYTi; 


Y  =  3  TO  2; 

FLAG  =  FALSE: 

cct’nti  =  toe; 

DO  '^"IL17  VALUE  >=  DECI'X); 
VALUE  =  VALUE  -  DECI'X': 

7 lag  =  tfue: 

COJVTl  =  COUNT 1  *i; 

EMI  : 

17  ?LAO  OP  (X  >=s  2)  TEEN 

CALL  P3INT$C?AP  (COUNTS? 
ELSE  CALL  PHIMT$C!IAR  (  ' 

7ND; 

PE TUP  N  ; 

E Vi  p$tt'dp\>; 


DC  L  =  ?  TC  (CCUNT-1 ) 5 
RCDNLT  (I )  =  GZTSCHAP.; 

E.'/r : 

c»  LL  ?RINT£CEAR(  '  '): 

IF  PCDNIIM  (COUNT-1)  >=  S3H*  T^EN  C*LL  ?P  UTS C~AR  (  ' 
ELSE  CALL  ^HINT^CHAR( 

CALL  PPINT$CHAP(  '<?■'); 

CALL  PRINT*CHAR( 

EG  L=0  TO  COUNT-25 


J,7  =  BODNUy(L); 

K  =  5UP((K  AND  F2H',4);  /* 

if  if  if  #  *  if  *  if  >(t  if  if  if  >■<#  if  if  *  j*t  s*  if  it  it  it  sjt  j|t  it 


EX  TP  ACC-  '’’HE  wSr  ?M  T77 

^  ^  #  ij:  *  Jjs  it  it  if  if  #  if 


■T" (  V  ^  ■*“ 

-  "  V  ^  ” 


CALL  D$C?A7 (K )  * 

J  =  (J  AND  dE77 )  J  /#  EXT?  AC  T  TrE  L5D  F>:  TE7  VfTE  */ 

CALL  E$CEAR'J): 

end; 

J,E  =  (7CDNUMf COUNT-1 )  AND  7FH )  ;  /*  GET  RID  C7  SIGN  */ 
I?  K  >=40 E  THEN  CALL  PRI NT^CEAR (  '+')’> 

7LSE  CALL  PRINT^CHAF (  )r  /*  SIGN  OF  EXPONENT  */ 
CALL  PDIMT$CHAP('E'); 

CALL  P$EXPCN AML  3FH )  J 

end  ?«in?$rcd; 


PP INTEREST  :  PROCLDUPE; 
D7CLAFE 
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F'lD? 

LIT 

'1H'  . 

LS 

LIT 

'013' 

,V  ECS 

LIT 

'24H  ' 

L^V 

LIT 

'PE'. 

LEI  I 

£  T 

'47'  , 

A  LL 

LIT 

'CEH  ' 

LITA 

LIT 

'7Ca' 

■cor 

LIT 

'3FH  ' 

B  LC 

LIT 

'3  FH ' 

PPO 

LIT 

'5E'. 

ANOX 

LIT 

'32H  ' 

BCR 

LIT 

'33~  ' 

PAPU 

LIT 

'43H  ' 

PA7MV 

LIT 

'44H  ' 

LPIB 

LIT 

'Ter  ' 

—  * 

■*CTR 

LIT 

'  F3H  ' 

\f  o  c  I 

LIT 

'54H  ' 

yt)TS 

LIT 

'55R  ' 

LDS  I 

LIT 

'4BH ' 

EASE 

LIT 

;4CH 

IF  CHAR 

=  RM dr  THEN 

DO? 

CALL  P  (  .  (  '  E  V  D  '))? 

CALL  boot; 

fnd; 

IF  (CCAR=WRTR )  OP  (CH.4P»Jt'H?I  )  CR 

(  CFAR=VRTS  )  TFEN  LC  ?  CALL  E(l)5  RETURN?  ENT  * 

I7  (CPSP=LRL)  0?  (  CHAR=LD  1 1  )  CP  (  C ?.AR=A  LL  ;  ■  CR  {  C-  A  ?.=L  I  LA  '  CP. 
(CHAR=BRL )  OP  (CHAR=RLC)  OR  fC*JAR=??0)  or 

( C  HA.  R-PARV )  0?  (CnAR=?AR!*Y  )  THE'!  TO? 


C  1  LL 

D(2); 

RETURN  ? 

END? 

IF 

C  7  A  o  = 

EASE 

THEN  DC? 

CALL 

D{4);  RETURN? 

END  ? 

IF 

CP.AR  = 

LI  IB 

THEM  10? 

CALL 

?  R I N  T  $  T  C I  '  ? 

RETURN?  END? 

IV 

CHAR  = 

LDSI 

TCFN  DC? 

CALL 

VF.  I  TF$  S  TP  I  NO  ? 

RETURN?  D  ? 

R  FT IJR  N  ? 

ENT  primt^rest; 


/####  pcor-pA^  EXECUTION  STARTS  UER  E  #***/ 
MAINLINE  :  LC: 

1 7  I*CN2(15 ,7CB)  =  2Ff  T-EN 
Do; 

CALL  °M'NC  FIT?  FOUND'))? 

CALL  ROOT? 

2ND? 

DC  WHILE  1? 

I7  OFT$CFA?  <=  72H  THEN 
DO  C*S7  CnA7? 

CALL  ?(  .(  'n  op  ')  )  ; 
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C  1  LL 

call 

'  V  ‘i  TO 

'i^r 

'  \  ' 
'  <  i 

i  i 

■:  a :  l 

?(  .  ( 

'lcip 

'  )  ) 

CALL 

?(  .  ( 

'  i  - 1 1 

CALL 

?( a 

'pfo 

')) 

CALL 

p( .( 

'o?N 

')  ) 

CALL 

M  .( 

'SAVP 

' )  ) 

C  ALL 

?(  .( 

'lTNS? 

')) 

CALL 

P( .( 

'CA'VB 

')) 

CALL 

?(  .( 

'CNVI 

')) 

CALL 

?(  .( 

'ALL 

')) 

CALL 

?(  .( 

'LI  TA 

')) 

CALL 

?(  .( 

'ALLS 

')) 

CALL 

?(  •( 

'A  EDI 

')> 

CALL 

?(  .( 

'SUP? 

')  ) 

CALL 

D(  .( 

'srsi 

')) 

CALL 

?(  .( 

'i^TLl 

')) 

CALL 

P(  .  ( 

>:ULI 

')) 

CALL 

?(  .( 

'LTV? 

')  ) 

CALL 

?(  .( 

'LIVI 

')) 

CALL 

?f .( 

'MODX 

')) 

CALL 

?(  .( 

'ECLI 

')) 

CALL 

?(  .( 

'NECI 

')) 

CALL 

P(  .  ( 

'LFCI 

')) 

CALL 

?(  •( 

'C-EQI 

')) 

call 

?(  .( 

'LSSI 

')) 

CALL 

P(  .( 

'r-??.i 

CALL 

?( .( 

'XI N 

')) 

C»LL 

P(  .( 

'E0L3 

')> 

CALL 

?(.( 

'NIC? 

')) 

CALL 

?(  .( 

'T  EC E 

')) 

CALL 

?(  .( 

'GEQ3 

')) 

CALL 

?(  .( 

'LSSB 

')) 

CALL 

D(  .( 

'CPT? 

')) 

CALL 

P(  .( 

'ECLS 

')) 

CALL 

?(  .( 

'NEOS 

') ) 

CALL 

PM 

'TECS 

')) 

CALL 

P(  .( 

'GEOS 

')) 

CALL 

PM 

'LSSS 

')) 

CALL 

?( .( 

'C-PTS 

')) 

CALL 

PM 

'ECSET 

')) 

CALL  .?(  .  ( 

'NEQST 

')) 

CALL 

‘PM 

'INCL1 

')) 

CALL 

?M 

'INCL? 

')) 

CALL 

?( .( 

'  VEG3 

')) 

CALL 

PM 

'r’EC-I 

')) 

CALL 

?( .( 

'CCK3 

')) 

CALL 

PM 

'COMI 

')) 

CALL 

?M 

'fiCTX 

')) 

CALL 

P(  .( 

'  ^  UDX 

CALL 

PM 

'■003 

')) 

CALL 

*M 

'ST03 

')) 

CALL 

?( .( 

'STOI 

')) 

CALL 

PM 

'STO 

'n 

3  A I L 

?  ' 

•  ( 

'  ~ 

'  ^ ; 

'I  ALL 

•  V 

'?3L  I 

')  ) : 

3  4  L  L 

?( 

t 

•  \ 

"SCP 

') } ; 

3  ALL 

?  ( 

.  ( 

')); 

CALL 

^  ! 

.  ( 

'FTI 17 

')): 

CALL 

?( 

.  ( 

'IS^C* 

')); 

CALL 

?( 

.( 

'  C  N  A  I 

'>  ); 

CALL 

3  f 

! 

.  ^ 

'PPL 

j  1  * 

CALL 

P( 

'3T'’ 

i.  w 

')).• 

3  A IL 

?( 

.( 

'CN2I 

'))! 

CALL 

C( 

.  ( 

'  y  X  S  S  T 

')): 

CALL 

P( 

.( 

'  7  r  H  C- 

CALL 

?( 

.  ( 

'  ?A  RK 

')); 

CAIL 

p  ( 

.  ( 

'PAR  v\; 

')): 

CALL 

?( 

.( 

'  P  A  p  v7 

' ) ) ; 

CALL 

?( 

•( 

'INC 

')); 

CALL 

P( 

.1 

'rzc 

') 

CALL 

?( 

.( 

'  D  Z  L 

')); 

CALL 

P( 

.( 

'V.PT 

')); 

CALL 

D( 

.  i 

'cis 

')): 

CALL 

D( 

.( 

'LBS  I 

')); 

CALL 

?( 

.  ( 

'  C  4  S  Z 

')); 

CALL 

p  ( 

•  ( 

'lci 

')); 

C  4LL 

?( 

.( 

'LCDR 

'))? 

CALL 

?( 

.( 

'LORI 

')); 

CALL 

*( 

.( 

'PE  VZ 

') ; : 

C  ALL 

?( 

.( 

'?LV  I 

')); 

CALL 

?( 

•  ( 

'crvs 

')); 

CALL 

D  ( 

.( 

'v07  p 

')): 

CALL 

?( 

.( 

'VRTI 

' ) ; : 

CALL 

?( 

•  ( 

'V  FT 5 

')); 

C  4  LL 

D( 

.  ^ 

'  l  V  M  ? 

')): 

''ALL 

?( 

.( 

'  A  q  S  " 

')): 

CALL 

P( 

.( 

'SCR 

' )  > ; 

CALL 

?  ( 

.  1 

'?TN 

'))•• 

CALL 

P( 

.( 

'CCS 

'))? 

CALL 

?( 

•  ( 

'ADCTN 

')); 

CALL 

P( 

.( 

'zxc 

')); 

CALL 

P( 

.( 

'LN 

')); 

CALL 

?( 

.( 

'SORT 

')); 

CALL 

P  ( 

.( 

'ore 

')): 

CALL 

P( 

.( 

'ICLN 

')); 

CALL 

P( 

•( 

'ZXF 

')); 

CALL 

?( 

.( 

'T^UNC 

')): 

CALL 

P( 

.( 

'POUND 

')); 

CALL 

?( 

.  ( 

'opE 

')); 

CALL 

P  A 

.( 

'CRR 

')); 

CALL 

P( 

.( 

'srcc 

')); 

CALL 

P( 

.( 

'  ppRE 

')); 

CALL 

P( 

.  1 

'SEEK 

')): 

CALL 

P< 

.( 

'PUT 

')); 

CALL 

?( 

•  ( 

'C-7T 

')); 

CALL 

P( 

.( 

'RESET 

'))? 

CALL 

P( 

.( 

'P7WRT 

')); 
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M  rj 


C  4  T  L  P  ( 


C*T' 

C  4 
CA 
r  A  \ 

C»] 

/- 
T  >>•  ■ 


:all 


. .  i 

•  ■"  r* 


M 

rr 


,L  F 


•  \ 

(  .( 

I  L  F  (  .  ( 

:l  ?( .  ( 

IL  ®(  .( 


t  <  ■ 


t 


; : 


'?VD 


/  /  t 
')}: 
f.  m  ' ' ) ; 
v  ')); 


{'mi  ')) 


re  ’ 


/* 


v/; 


ae? 


SY.V_4.3 


«<  1  •  i 

$?A-''F,.,,irr? ' ce  )  ti?lK'syv  -  syvrol  tape:7  p^in?  ut: 
/* 

-LI  V?  SYY.ORJ,TPINT.OEJ.?LY=O.LIP  TO  5  Y  ^  .  1 N.  K 

—icc1  rp?  syv.lnx  cciFdosE) 

#  3ic  1[!  Jl:  y;  3':  j:  sics,1:  3;:  3;-.  3,;  3;:  3!:  3,:  3;;  3;i  3(;  s;:  s;t  3|:  3,:  s;c  3;: *  3^  3(3 3;:  3;:  3  :  31: s,:  3,:  3.: s':  si:  3,:  si: 3;: : 


# 


SYVPOLS  TABLE  ‘PRINTOUT 


3J:  Si:  sj;  #  -,,'t  sj:  ^  *  3,':  s|: #  s;c  £  sj:  3;:  *  3*  *  :*  3|s  sS  *  ^3«i  $  s-t#  s’:#  3':  3js #  *  s.’t  s£  *  s;:  *  si:  si:  3*  3;:  3^  3;:  i;.  3',: *  3;: ; 


TCIS  PP03RAK  TAKES  THE  OUTPUT  ?POl*  TH“  PAST » L  SY^CL  T»*L 
AMD  CONVERTS  IT  I  NT'"'  A  READABLE  OUTPUT  To  ^ACILITA?7 
DEBUG G  INC  . 

/ 


SYY:Co; 


DECLARE 


LIT 

LITERALLY 

EXT 

LIT 

FC5 

‘ ELRESS 

add® 

LIT 

ECB^BYTE 

BASED 

DEC  IE (5) 

ArrR 

DFCI(3) 

RVTV 

I 

FITE, 

TRUE 

LIT 

7ALS'r 

LIT 

COPYING 

BYTE 

A I  DPI 

A  TIRES S 

CFAP  .. 

BASED 

3UFF$END 

LIT 

FORvl“!ASK 

LIT 

DCL 

LIT 

DC  L 

PPCC 

LIT 

FO^EILLFP 

LIT 

ECDNUY(E) 

BYTE, 

FILE$TYPEd  ) 

IYTE 

FO°l* 

BYTE, 

TAPLE^STAPT 

A  DTP,  /*  STAR 

OFFSET 

AE'LR ,  /*  NEW 

'LIT'^ALLY  \ 

'EXTERNAL  '  , 

INITIAL  'EOF). 

'address', 

?C3  (1)  RYTE, 

I  n  I  t  i  a  l  ( 1  ?  ?  e  e ,  1  z  o  c .  1  e  e ,  1  ? 
niTIALd*?,  1CM)  . 

'1 

'o'. 

IN  IT  IAL  (  TpT'E  )  , 

INITIAL  ( 1 00E  )  , 

ADDP1  3YTF , 

'2>ttu  '  f 

'DECLARE'; 

'PROCEDURE  ' , 

'  1  A  H  ' 

LATA  (  'S  ',  'Y  '  .  . 

ING  LOCATION  AT  C  0*P I  LA  m  1 0.. 
ALUE  07  TABLE  ENTRY  - > 


.1  '  . 


*  / 


2*3 


?A?MSDIS?I.'n(l?  )  A  D  L  R  ,  /*  TCr,ATIC'-:  CE  SU-°  TN  ~C°M»I  :i:iv 

:  i  s ;  i  * *  / 

SUPPTM  'sYTr  INITIAL^?)  . 

?A°M$N'JM(  10)  PETE ,  /*  STEPS  C^UMT  of  NUMBER  CT  ?A?Av?Tr?5  */ 
c  A  V  v  $  p  4  S  E  »  piR,  /*  pAVTS  EAST  LOCATION  *  ' 

L?N  BYTE  ,  /*  LENGTH  0T  ??  I N  TN  AM  */ 


PAST 

SPT’JT'^C'C 
2  UT 

L 

PTR 

a ?TR A  ED? 
ADDRPT0" 
BYTEPTR 
P0INTNAME 
SYMHA  S  ° 


ADDR,/-?ASE  OE  CURRENT  ENT- Y- / 

A  T  T  R  ,  /*  CURRENT  'TOR  op  TABLE  ‘  5  Yv 
AID?  . 

^’5  t  /ST  TV^T'-'  0~  ",*°LF*- 

"CAQT^  £  ^  T;  YT^  /  ^  C  m  T  V  m  r  Q  r  7  V  ^ 

ADD?,/*  UTILITY  V»?  r0F  ^A0!!*/ 
RA.SrD  A PTR ADD0  ADD?, 

BASEL  A PTR A  I  DR  PY"Z , 

ADD?,/*  SET  P°IC?  "0  ICC  El'?  CP  °.<T 
°YTE  , 


\  51?  / 


~  V  # 


IASTiSRTBLSlD  ATI?., 
?  AP  AMNUVLQC  ADD? , 
SRTRL3C0FE  ADDR. 


MON  1  :  PROCEDURE  ( F  ,  A. '  EXT; 

DECLARE  7  BYTE,  *  ADDRESS? 
END  MON 1 ? 


VCM? :  PRCCEirRE  (?,/>  BYTE  ”^T; 

DEC  LA  °  E  E  3YTE,  A  ADDRESS; 
END  M0N2; 


BOOT:  PRCC  EXT! 
END  root; 


RF.INTSCFAR:  procedupe  (crar); 
DECLARE  C nAR  BYTE? 

CALL  M0N1  (2, CHAP.) ; 

END  p°intschar; 


CRLF :  ?POCtDHRE; 

CALL  PR  IN  TS  CH AR  ^ 13 ) ? 
C»LL  PR  IN  T- CHAR ( 1 0  )  J 
END  c°lf; 


PRINT:  PROC(A); 

DCL  A  ACER; 
CALL  *0N1(9.A)J 
END  PRINT? 
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GET  £  °  “  A  R  :  3  ?  ^  7  ; 

if  (add?: :=Arb?i*i )~">  buffs  eg r 
ip  ; 

!7  !''C\I?(20,'7C3)  O  ?  T?vn 

do; 

CALL  PRIVTf  .  (  'THE  I  NT  $')).’ 

7nd; 

*  dd-0  i=33H ; 

7»;r  ; 

?~tup.‘j  c?ar; 
end  gztschar; 


:■  *  C  5 »  ’  :  FRPCEDURK  OUTPUT  $  BYTE  )  5 
D F C L A P. F  0U7?UT$*YT!  BYTE  J 

IF  PU7Bl:T$BT7E  <  12  TEEN  CALL  ’R IN T$CHA R(  OUTPUT S  F  YTF 

•7  n  t? 

»_  i  . 

El  5  F  CALL  PPlNT$CPA?.(OU?P’dTt*YTE  +  3?? )  J 
END  I5CHAR? 


D :  F?CCtTrrS7  (COUNT); 

DEC  LA37  'COUNT,  J)  ADDRESS: 

DO  .1=1  TC  count; 

CALL  D^CHAR (SF? ( 3YTEPTR , ± ) ) ; 
CALL  DSCEAP. f  BYTZPT'0  AND  0jn\; 
APT?. ACER  =  APT?. ADD?.  -*■  1  ' 

end; 
ent  r; 


J|!  #  #  *: 


:;s  j.!  #  »;<  #  #  s(i  #  #  #  *s  «{ #  #  j*  *:  # »:«  *=  if  *:  V  *  *:  s;s  a;*  s|s  >[: X? »  s|c  V  if  : 


>'fX- 


*V 


PR  I  NT -BCD  :  PROCEDURE  (COUNT); 

D7CLA^F  (COUNT,  ,T  ,  f.  L)  BYTF; 

PAEXPON:  PROCFrUPF (VALU) ; 

DECLA.OE  (VALU,  X,  CCUNT1)  BYTE; 
DEC L * PT  71  LAG  BYTT: 

DO  x  =  l  TO  2; 

FLAG-  =  FALSE; 

COUNT1  =  30?; 

DO  VEIL?  VALU  >=  DECI(X); 

*ALU  =  VALU  -  EZCI(X): 

FLAG  =  TRUE; 

COUNT  1  =  C0TJNT1  +  i; 

end; 

DE  FLAG  OF.  (X  >  =  2)  TEE'! 

CALL  ??IfvT4C?A?  (C0UNT1  )  J 
ELSE  CALL  PRD  NT$ CHAR ( '  '); 

END ; 

RETURN ; 
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FND  PSEXP^N; 


r  c  L  =  0  Tn  '  COr'N  T— 1 ' ; 

3f*r*JTTV  (  L  )  =  ^  Y  T  "P  T?  J 

a  p  T'3  a  r  r  ° = a  ?  t°  a  r  d  ?.  ■*•  1 ; 

—  <i  r  • 

C 1 LL  P^INTSCFA5 (  '  '); 

IF  BCDNUP ( COUNT— 1 )  >=  £*H  THEN  CALI  PPIN TSCHAP (  '  )  ; 

ELS"  CALL  ?RIKT$CPAR(  '  +  ') ; 

C  1  LL  PR INTSCHAR(  '0'); 

CALL  PR  I  NT  SC HAP ('.')} 

rc  i=e  count-2; 
j,e=3cdnuk(l); 

K  =  SHP  (  ( X  AM  CFCH),4);  /*  EXTRAC"-  TPE  l*SD  IRCV  THE  ^YTE  */ 
CALL  riCFARCO; 

J  =  (J  A ’ID  e^H);  /*  EXTRACT  THE  LSD  FRO  v  THE  EYTE  */ 

CALL  ESCHAR (J)J 
Ef,E ; 

J ,  E  =  (RCENUM  (COUNT-1 )  ANL  7F«);  /*  GET  P.IE  OF  SIGN  */ 

IF  K  >=  40F  THEN  CALL  PR  I  NTS  CHAR  ('■*•')  J 
ELSE  CALL  P?  INT$CHAR(  *  /*  SIGN  OF  EXPO.NET  */ 

CALL  P?.nT$C*AR(  'E')? 

CALL  PSFX?ON(X  AND  3FH) 5 

e  n  r  d  ?  i  n  t  s  b  c  r ; 


DOTS YY : PRCCEDUPE  j 

FCT>SPYTE(H2),  *C?$5YTE(0)  =  di 
DO  I  =  e  "0  2! 

FCB$ BYTE  ( 1+9  )  =  *ILZSTY?E(  I  )  ; 

end; 

IF  f*CS2(15, FOB)  =  255  THEN 

do; 

CALL  PPINTf  .  (  'EFPOP— C-ONE  TO  ROOT  S')); 
CALL  ecot; 

end; 

end  roTSYK; 


DISKFRP:  PROC; 

ro; 

CALL  PRINT(.('DF  S')); 
CALL  boot; 
end; 

END  riSKERP; 


PPINTDHC:  PPOC ( 7ALUT ) ; 

DCL  VALUE  ADDR  ,  I  BYTE,  COUNT  BYTE  J 


z?e 

jk _ 


L 


do  I  =  2  to  4; 

COUNT  =  cep: 

CO  'a'H I LT  VALUE  >=  ricisd): 
VAI7E  -  VALUE  -  CFCIS'n.* 
FLAG*  true; 

CCTTNT  =  CCU  N  T  +  i; 

EM) ; 

IF  FI  /  C-  On  (I^=  4 )  THIN' 

CALL  PFINTCH  AP.fCCUNT  ): 

FIS  I 

CALI  PRI NTCHAR (  '); 

end; 

RETURN  > 

EMC  ^RIMTIEC; 


S rTA. DDPPT?  :  PROC  ( OFFSET ' ; 

DC L  OFFSET  AIDE 5 
AFTRAIIF  =  EASE  +  OFFSET: 
EMC  SFTACTF?Tp; 


5ST*?AST«P\':  ?POC ( OFFSET  1 ? 

rcL  offset  ette; 

C  4  LL  SET1 DCF  RTF ( £  )  * 

CALL  S FTADCRPTR ( PYTEPTR  -  OFFSET); 
EMC  S”T$?ASTS?M; 


CC?Y$SET^I:  PROC  ADD?: 

/#  COPIES  FILE.  S Y TO  [*FNO?.Y,  LOSING  FOP  TV. 
(1A3)  IM  A  P.OV;  */ 

DCL  X  ADD?.: 

7  =  o; 

CO  ViElIE  copying; 

CALL  SETADDPFTE(K); 


RYTFPTR  =  C-FTCPAR; 

7  =  K  +  i; 

IE  RYTFPTR  =  EOrFILLER  THFN 

co; 

:<=•<  +  i: 

CALL  AD  DR  FTP.  (K  )  J 

3YTEPTR  =  GETCHAP; 

IF  FYTEPTR.  =  SOFFIILER  TEEN 

do; 

COPYING  =  falsf; 

5YTFPTR  =  eCHI 

end; 


fnd; 

end: 

PTTUPN  Kt 


o  FOTFILIE^S 
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v  Mr  c  C  “  y  i  S  I  < 


RESETS LOCATION  :  FRCC'A)  AILR: 

ecl  8  addd: 

OFFSET  =  A  -  TAPIESSTAP.T  * 
R IT URN  OFFSET? 

IMD  P  ES  ET  S  LO  0  AT f  OJ  J 


TARl:  PROC; 

CALL  PRINT' . (  $')  )  ; 

END  T 1  3 1 : 


TA?2:  PROCi 

CALL  TAPI; 
CALL  TARi; 
END  TA32  i 


WPITESENTRY:  PROC; 

DC  CASE  (?0EK  AND  0?h); 

CALL  PRINT*' .  (  'LABEL  EN^Y  *'))? 

CALL  PRINT'  .(  'CONSTANT  7M73T  5")); 

CALL  P  P I N  T  (  .  (  'TYPE  ENTRY  $'D? 

CALL  PRINT {.(  'VARIABLE  ENTRY  $'D? 
r ALL  °RINT ( . (  'PRCCEEURE  ENTRY  $'))? 
CALL  P?INT(  .(  'FUNCTION  ENTRY  $'))? 

CALL  ?RINT(.( 'EIL£  ENTRY  $'))? 

CALL  PRINT' . ( 'USER  TSCLAREI  ENTRY  $  '  '  ) 
END;  /*  CASE  */ 

END  'AMTEiENTRYJ 


peintsii:  p?nc; 

ECL  S I  2^  BYTE! 

CALL  SFTADERPT^(e); 

size  =  etteptr; 

DO  I  =  1  to  size; 

CALL  SFTAErBPT?(e+I  )? 

CALL  PRINT-CPAR'EYTEPTR); 

ene; 

CALL  CPI*; 


ENE  PPINT$ir; 


PANC-EP:  PROC(AV; 

ECL  (A,  based  aedr; 
BAS  El  =  base; 

3AST  =  A? 

CALL  SE?$AEER$??R(7) » 
CALL  crlf; 
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C  4LL  DAP' 


4  LL  o?i‘lt(.('WT 


"H  L C  V/  V  \Ll  r  ;  , 


__UT  $  '  1 

IT  (S-^(T0T^,7)  AND  E  OR^AA.  S  E  )  ITEN 
C  A II  ?? IN  T  SCF 4  fi ( PYTEPTR ) ' 

EL SE  CALL  ?? I NI $CTC ( ADLEPTR ) : 

CALL  ?®I\'r(.i'  AMD  HIGH  VALUE  $')); 
CALL  5  E?S AI DRSPT?  (  9  ^  j 


I?  (S?T5  (  rO?r.  .7  )  AND  TORYMA.SX  )  THEM 
CALL  PPINTSCHA® (PYTEPTR  )  J 
ELSE  CALL  PR INTSDEC ( ADLR®?R  )  ; 

PAST  =  3AST1 J 
END  RANGER? 


usersteeinei ?  prcc; 

DC  CAST  (SHF.  (  BY^EPT?  ,Z  )  AND  *C?*-TASX); 

cn; 

CALL  ?B I N T ( . (  'ENUMERATED  TYPE  -  S'4}? 

CALL  printed; 

CALL  PPINT(.('TBE  VALUE  IS  S'))J 
CALL  SE?S?AST$?N (?) ; 

CALL  P?.INTSDrC(3vTZPTR  )  5 

end; 

do: 

DO  C*S^  ( SH? ( BYTEPTR ,6 )  4ND  PC?V^AFX); 

CALL  PRIM(.('AN  ENUMERATED  SUBRANGE  S')) 
ic; 

CALL  PRINT*. ('AN  INTEGER  SUBRANGE  $')): 
L?N  =  L?N  +  13;  /*  LENGTH  4 EH  ^\7?Y 

ENL  ; 

CALL  PP.IMT(.('A  CHARACTER  SUBRANGE  S')); 
end;  /*  OF  CASE  */ 

CALL  RAN C-ER  ^ EASE )  5 

~nd; 

do; 

CALL  PRINT  (.('AN  ARRAY  S'M? 

CALL  SETADDPPTR(P); 

I  =  PYTEPTRJ 

LPN  =  L?N  +  1?  +  (4*1):  /*  LENGTH  OF  l^E  E 

CALL  cble; 

CALL  TAB?; 

CALL  PRINT(  .  (  'TH7  COMPONENT  TYPE  IS  S  "I) : 
CALL  S^TADDFPTRde); 

ro  case  pytfptr; 

CALL  PRINT(  .(  'SCALAR  *M); 

CALL  ?FINT( .( 'INTEGER  $')); 

CALL  PRI  !NT(  .  (  'CHA®  $')); 

CALL  ?RIN?( .( 'REAL  S')); 

CALL  PRINT(  .(  'STRING  S')); 

CALL  P?INT( .( 'BOOLEAN  S')); 
end;  /*  OF  CASE  */ 

CALL  crle; 

C»LL  TA  B2»  -v 

CALL  PR  I NT (  .  (  '  IT  REQUIRES  $'>); 
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C/LL  STT/.IL??T? )  ; 

CML  P?INT$DM  (  ADD-  5  TP.  '  : 

C/LL  ??INm.('  FT7IS  0?  3TO?/ C-F?  '  .  )  ; 

C/LL  CMF! 

C’LL  T»T'2» 

CALI  P*>I \I( . ( 'THFPF  IS /Ac7  S')); 

cali  ?rhtmfc( i ' ; 

C  J  LL  ?PINT(.('  DINENSICNS  IS  THIS  A  PRAY  S  ' '  )  ; 
call  sftaddpptb(s) ; 
ip  vhil^  i  o  e: 

APT?. Area  -  APTFADD?  +  4: 

CALL  PA  NCI?  ( 1  LCF.PTP  )  i 

L?N  =  LPN  +13;  /■■■  LENGTH  OF  -JH  ENTRY  */ 

i  =  i  -  i; 

evd; 

ZNE  ; 

do; 
em  ; 
re: 

C  *  LL  P?i:JT(  .(  'A  SIT  OF  $')  )J 
CALL  SETA  DE®FTP.  ( 5  )  » 
saviia.se  =  ease; 

EAST  =  .AEDF.PT?  J 

call  pp i \t r ; 
past  =  savzmase; 

END;  " 

Do ; 

CALL  ??INT(  .  (  '»  FILE  OF  i '' ) : 

CALL  STTADDPPT? {?.)', 

SAVE* ASF  «  ?ASE; 

HAS7  =  All KPT? » 

CALL  ^FI'lIMi; 

T/ST  =  SAVE PA  Si; 

ESI : 

re; 

CALL  P3  I  N  T  (  .  (  'A  PCIMTI?  OF  TYPE  5  '  )  J 
CALL  SZ7AEIRFTR (5  ) ; 

SAVES BASF  =  BASE? 

basf  =  alep.pth; 

CALL  PPI.NTMr: 

BAST  =  sav~$base; 
end; 

end;  /*  OF  CASE  */ 

E'JD  UST?.$IF?If!?D; 


CFECE^COLLISION:  PF.OC; 

/*  I  COTS  FOR  AIL  HESS  IN  CCLTISION  FIELI,  THEN  PEAIS 

COLLISION  CHAIN  BACKWARD ,  PPIN"INT  PMM.ur'M .  STCPS 
VHFN  VO  FUP.THUR  COLLISIONS  op  TABLE  FUNS  OUT.  *V 
CALL  SETADER?T?.Ag)  ; 

LPN  =  BYTFPT?; 

CALL  ™ AP 1 5 

CALL  ??IMTf .(  'HASH  VALUE  =  i'))? 
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Z  1  LL  ? -i  ^T^TC  l ; ; 

CALL  S7TADERPT?  '  ?)  J 
17  A 1 1  ?  ?  T  ?.  =  EtE  THT*I 

?  4  LL  ®PI1?(  .(  '  AND  TFEPE  AP“  NO  COLLISIONS  c''' 
7LSF  L°5 

SAvZSrASE  =  EASE; 

EC  WHILE  ADDRPTF  >=  T A.l L~ AS  TAR " ; 

past  ,aptp* rra  =  addpptp; 

C  4  LL  ??  I  NT  (  .  (  WHICH  C^LIILES  ’•’!  TH 
CALL  PRINTsIE; 

CALL  SITADDRPTK2)  ; 

CALL  "•  A ? 2 ; 

F  N  D ; 

17  A  EDRPTR  =  32E  THEN 

CALL  ?RINm(.('ANr  THERE  ARE  NO  7HP7HSR  C^LLISIO 
ELSE  do; 

CALL  P?  I  NT  (  .  (  '  ANY  OTHER  COLLISIONS  CCCTR  IN  TE 
CALL  crlf; 

C 1  LL  PRINT( .('BUILT-IN  SYMBOL  TABLE 

ene; 

PASH  =  S A7ESBASEJ 

ene; 

CALL  CPI •c’ ; 

ene  checxsccllision; 


E"TPY$?'r4D:  PROC; 

call  v.?ite£pntrt; 
call  ?piN7$ir; 
call  cf^cescclltsicn; 
call  tabu 
ene  entryshzad; 


CHECH^TYPZ:  PROC(A)? 

ECL  A  byte; 
ecl  type  eyte; 

TV?E  =  ( S HR  (  A ,  7}  AND  FOP.MM  AS K  '  * 

ro  case  type; 

A*  SCALAR-ORDINATE  */ 

CALL  ?RINT( . ( '  SCALAR  ORE  IN  ATE  $')): 
/*  INTEGER  */ 

CALL  PRINTS . ( '  INTEGER  $')); 

/*  CEARACT7F  */ 

CALL  PRINT*. ('  CHARACTER  $'))? 

/*  REAL  */ 

CALL  PRINK. ('  PEAL  $')); 

/*  COMPLEX  */ 
do; 

SA7*$3AST  =  BASS? 

CALL  SETiPASTSPNO)  ,* 
rase  =  Arr  rptp.  ; 

CALL  SFTADDPPTR ( 4 ) } 
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”st  cali  ??i\'7s:r: 

^  A  ST  -  3  A  V  T  A  «  A  $  Z  > 

tm  ; 

/*  ^OCLTAil  */ 

CALL  PRIM'  . (  'BOOLEAN  $'))? 
TfJi:  /*  CAST  ~’v  M  */ 

CALL  CFL T : 

CALL  7A?i; 

end  checxstype; 


CFTCr$TYPE$COSST:  PHOC ( A ) ? 

/#  CFEC1'  POP  TYPF  OP  CONSTANT  AM  PRIM  IT  */ 
I  Cl  A  TYTP: 

PC  CAST  a; 

/*  a  UNSIGNED  irrNTI?I2?  */ 

C‘LL  ?pint(.('  unsigned  IDENTIFIES 
/*  1  INTEGER  */ 

CALL  PRINTS  .  (  '  INTEGER  $  ')  )  J 
/*  2  REAL  */ 

CALL  ??INT(.('  PEAL  $'))? 

/*  3  STRING  */ 

C  4  LL  «PIV?f . (  '  STRING  $  '  > ) ;  ~ 

/*  4,? ,6.7  NOT  DEFINED  */ 

•  •  •  • 
f  f  »  » 

/*  5  S  IC-VSr  IDENTIFIER  */ 

CALL  ?EI?IT(.('  SIGNED  IDT.NTIEIZR  S'1); 
END;  /*  CASE  */ 

END  CPECKSTT?E$CCH£?: 


PPINTSPPT:  ?P.CC(A); 

tcl  a  3yte; 

IF  A  =  1?  TEEN 

C»LL  P?INT(.('TEE  ASSIGNED  PPT  LCCATICN  EC?  TFT  S3?  I? 

ELSE  CALL  PPINT ( . ( 'TPS  ASSIGNED  P®T  LOCATION  IS  *')!? 
CALL  SE7$?AS7$FN/  4  '  < 

C 4 LL  PPI'lT$DTC(*rDR?TP); 

call  crle; 
end  psintspp.t? 


PFISTSH'FLs  3ROC; 

call  ent^yapead; 

CALL  ?PINT( .( 'THE  ASSIGNED  LAPEL  VALUE  IS  5''): 
C  *  LL  Srn,$?AST$PN  (7  )  J 
CALL  INTiPEC  ( A  EDP.PTR  )  » 

CALL  crle; 

END  ?PINT$LAPEL» 


212 


?*I\'7$C0N5T:  ?3.OCI 
LCL  (TT-S.SI?EtI)  v 
CALL  v:piTIi~'lT?Y; 


CALL  PoiKTilZ; 

CALL  CHFCKSCOLLIFICN: 

CALL  ?PIN?(.('  THE  CONSTANT 

TYPE  =  (S3R(EO?r',3)  AND  3E3)? 

CALL  c3ec;<$typi*ccnst(ty?e)  : 
CALL  CRL3; 

CALL  ?PIN?(.('  TCE  CONSTANT 

IF  TYCE  =  1  THEN' 

do: 

CALL  STT$PASTSPK(7)i 
CALL  ?SINT$IZC(  AILP.FT?  ); 
LPN=L?N  •*■9: 


T  YP  ~ 


Ll'F 


end; 

IF  TY3E  =  2  THEN 
DC: 

CALL  SETSPA  STSPM (7 )  » 
c»LL  rRINT$ECD ( 8^  : 
lpn=l?n+ie; 
end; 

IF  ( TY3E  =  0)  OP  {TYPE  =  Z)  03  fTY?r 
DC  : 

CALL  SETSPASTSPK^) J 
YIZE  =  5YTEPTE* 

DC  I  =  i  tc*size; 

CALL  SET$ADE«*P7R(7*L?N+I>; 

CALL  PRINTSCFAiP  BYTEPTR ) : 

end; 


"ND  ppintsccnst; 


IS?' 


-  4 


-  £  ) 


P3 1 NT^TYPE  :  PROCJ 

CALL  ENT? Y$nEAL  5 

CALL  P?INT(.('T?r  PAPZNT  TYPE  IS  S''): 

DO  CASF  (SH3(Z03^,3)  AND  FORr-TASE )  J 
CAIL  PRINT (  .  (  'INTEGER  i'>):  /*  ?  -V 
CALL  PFINT(  .(  'FEAL  $'));  /*  1  */ 

CALL  PRINT ( . ( 'CPAR  $'));  /#  2  */ 

CALL  PRINT(.(  'BOOLEAN  $'l):  f*  3  */ 

:  /*  4  #/ 

;  /*  3  v 

:  /*  e  */ 

do;  /*  7  */ 

CALL  STTSPASTSPN (7) J 
SA7Z$BASE  =  EASE? 

BASr  =  aedrptr; 

CALL  S^TADDRPT? ( 4 ) { 

IE  ( PYTEPTR  AND  ECRYPASK)  =  0173  TEEN 
CALL  usersdzeined; 

ELSE  CALL  PRINTED! 
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r  A  5  "  =  SA/75-AS-; 
7V I  : 

~\'D:  /*  o'?  cast  */ 

-  I \  7  A "Y? ? ; 


PRINTS 7A HI AE IE:  PROCt 
CALL  FNTFYS3 TAD : 

CALL  ?P  I  .\  7  f  .  (  '  TUE  V  A  B  I  A. B  LZ  ?Y?~  IP 
CALL  CEECKSTY?E'70OV?  : 

CALL  P?rJ7$??Ti7); 

end  ?? i ntSvar i a  pie ; 


SUBROUTINE :  PPOC: 

LCL  J  RY?~: 

CALL  P?INT( .  ( 'THTRT?  *®I  S')^: 

CALL  SZTSPA.  STS  PN  (7  ) : 
j  =  PY^YPT15? 

CALL  p?i NTSDZC (BY?E?TR  ) ; 

CALL  CRP! PAR*  WZTZBS  <  '  '  )  ? 

CALL  cpl?: 

CALL  SET^pASTSPNffe^ J 

PA  R  VSL I  STING  ( SU^TN  :  =SUPRTN  +1  )  ,  *  ?  T  -  A  T  D  B  -•  A I  r  P  ?  T  E  ; 

?»?KSNUV( SUBRTN )  =  j; 

Do  i  =  1  to  j; 

CALL  T  A  E  2  J 

CALL  PR  I  NT  (  .  (  'NC  .  $'1  )  : 

CALL  PRINTSDTC ( I  )  J 
CALL  TAEL? 

IF  33R(3YTFPTR  ,7)  77":, 

do; 

IF  SER(  EYTS?mR  ,*?  )  7PZN  CALL  PBI\T(.('  ~'JNCTIO\  sM); 
T’LST  C  *  LL  PR  I N  7  (  .  (  VA-  S  ')  )  ; 

END: 

ELSE  IP  PYTFPTR  -  4  THEN  CALL  PBIA?(.('  PPOCTIORF  $'VJ 
ELSE  CALL  PR  I  4  T ( . (  '  VALUE  S')); 

CALL  PRINT (.(  'PARAMETER  OF  TYPE  S')): 

CALL  CHICXS?7?E(Z0RK) * 
fPTRADDR  =  APTPADDR  +  7: 

END!  /*  DO  I  */ 

CALL  ’RINTSPRT(ie) ? 

CALL  PPINT$PRT(12); 

CALL  TABU 

CALL  ?*IN?M'THF  LAEEL  VALUE  PRECEDING  THE  COIF  IS  S  '  ^  ? 
CALL  SFT$PASTSPN(14); 

CALL  PRINTSDEC(ADERPTR); 

CALL  crlf; 
end  subroutine; 


BRANCH:  PROC? 

SRTBL  =  3BT3L  (3  *  PARN’SNUN' ' SURETY  )  )  J 
SUERTN  =  SUERTN  -  It 
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E  *1 1  i  ?  A  N  r  ~ 


PFI'fTSPPC'":  PPOCI 

CALL  FNTBYSHFAD; 
CALL  SUBROUTINE  ‘ 

end  ?p i:i7$pooc; 


psiMTSFUNC:  PPOCJ 

CALL  ENTRYSEEAIJ 

CALL  ??INT(.('THF  FUNCTION  mTF "  IS  S')); 
CALL  SET$PAST$?K(ie) ! 

FCRV  =  LTTiPTR; 

CALL  C  EFCKSTYPZ  (  FCP.f' )  » 
call  subroutine; 

FNL  PRINT  SFl’N’C* 


?? I  NTS? I LF  :  P  -0 C  » 

C  A  i,  L  ~  2  N  TD  Y  $  H  F A  D  J 
2 NT  PRIN7SFIL2T 


SKIPPER :  P*CC ; 

10  CA  SE(  S  HR  (  JOHN  ,2  )  ANT  FORA’CASL' )  I 

dc; 

CALL  SETADLPPTP(e) } 

SBTEL  =  SBTEL  +  i£  +  5YTEPTR; 

end; 

SBTBL  =  SBTBL  +  165 

lc; 

CALL  SFTADDF.PTR(5)  ; 

SBTBL  =  SBT^L  +  12  *  (2  *  ^YTFPTP. ) ; 

sne; 

dc; 

IF  FOHC  =  1FH  T^EN  SBTBL  =  SBTPL  f  9; 
ELSE  do; 

CALL  S  ETADDRPTR ( 6 ) 5 

SBTBL  =  S^TBL  +  14  +  BYTEPTR; 

end; 

end; 

SBTBL  =  SBTEL  +  7? 

SETBL  =  SBTEL  +  7; 

SBTEL  »  SBTBL  +  7; 
end;  /*  OF  CASE  */ 

END  SKIPPER? 


STARS:  PP.OC; 

CALL  crle; 

CALL 

PPINT  (  .  (  ' - $')  , 

CALL  cplf; 
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x  U  1 


VC7E:  ^PCC  'SOURCE,  LIFTIN’  ,L)  : 

ECU  (SCI'FC?  .LZSTn  ,L)  AUER, 

(SCHAR  RA5EE  SOURCE,  DC  rap  PASTE  LISTIN':  r ttf  ; 
ro  WHILE  (L : =L  -  1)  <>  05535: 

DC~»R=SCHAR J 
l?STIS=DFSTIX*1: 

sctrcz=souhcs+i ; 

end ; 

z \v  nove; 


yj  i  n  i  in  z :  r  c ; 

CALL  EOTSYiv; 

EASE,  5PTPL  =  .riKOPYJ 
L  =  COPY  S$  ETEL i 
CALL  S7T‘ EEFFTR ( 4 ) ; 

PQPM  =  pyteptr; 

EC  CASE  ( ECRV  ANE  JCR^AS  X )  : 

CALL  SETSPAST$?M(11 )? 

eo; 

CALL  SETAriR?TP(4); 

I?  S  E5  (  3YTEFTF  ,  4  )  THEN  CALL  SECS  ?*  S  ES?.*  ( l'7  1  : 

else  call  set£?ast$?\(:i); 

p\|r  j 

C»LL  SE^SPAST^FN(ll): 

CALL  5ET*?AST$PN(13)  ? 

CALL  S ST$ ?A  S T$?N  •'  1?  )  ? 
call  set$p*st$?::(  19)  ; 

CALL  SFT$?AST$?N (9  '  ; 

/*  THIS  EM  ERY  IS  IMPOSSIBLE  EC R  TEE  FIRST  ENTRY  */ 
ZNE?  /*  CASE  ECRU  #/ 

/*  STARTING-  LOCATION  0?  THE  5Y n L  TA^L17 

T  A5LE5STA  RT  =  A.  E  ERF  TP  J 

CALL  KOVE( SB73L , TABLE $5 TART  ,L ) ; 

EASE .SET5L  =  TA*LE$START ? 

/*  START  */ 

CALL  S~?AEERPTR(2)  ? 

DO  WHILE  AEERPT?  <>  J52H? 

CALL  S ETALDRPTR (4 )  ? 

TORN  =  byteptr; 

CALL  STARS? 

EC  CASE  (  BYTEPTR  AND  FORMAS  S  )  ? 

/*  LABEL  */ 
ro; 

CALL  PR  I  NT* LAE  EL? 

SBT3L  =  SBT3L  +  9  +  LP.'i? 

END? 

/*  CONSTANT  */ 

rc? 

CALL  PR  I NTiCONST  ? 
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*/ 


sri.-.  - 

7. I : 

/*  TTPI  */ 

ro; 

CALL  PRINTS T : ? 
33TBL  =  S3T3L 

END  ? 

/*  VARIABLE  */ 

ro: 


CALL  PRINTS  VARIABLE; 

SrTBL  -  SPTBL  +  11  *  LPN; 

end; 

/*  PROCEDURE  */ 

ro; 

CALL  PRINTS  PR DC? 

3BT3L  =  S3TBL  +  16  *  L?  N  J 

z  n  r ; 

/*  FUNCTION  */ 

ro; 

CALL  FRINTSFUNC; 

S3T3L  =  S3T3L  17  +  LPN; 

ENT  ; 

/•••  FILE  */ 

ro; 

CALL  Pc INTiFILE; 

SB TEL  =  S3TEL  +7  +  LPN ; 

end; 

/*  USE?  DEFINED'  ENTRY  #/ 

ec; 

CALL  skipper; 


end; 

END:  /*  C?  CASE  */ 

I  7  S3T3L  =  P  ARU. -L I STI NO ( SU3RTN 

base  =  sptrl; 

CALL  SETADDRPTRf 2)  ; 

end; 

CALL  crlf; 

CALL  PRINT (. (  "THE  SYUECL  TAELS  HAS 
CALL  root; 


END 

END 


KA inline; 
syv; 


THEN  CALL 


EEEN  PRINT 
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